1 files changed, 3 insertions(+), 2 deletions(-)

M rgr-perl-hacks.el

@@ 1,3 1,4 @@
+;;; -*- lexical-binding: t -*-
 ;;;*****************************************************************************
 ;;;
 ;;;; Hacking perl mode.


@@ 81,7 82,7 @@ GNU/Linux (openSUSE).")
   ;; Given any inner names in suffix (which may be nil), return it if there are
   ;; no more outer names, else concatenate the new outer name and recur.  Does
   ;; not preserve point.
-  (condition-case err
+  (condition-case ()
       (let* ((outer-name (progn
 			   (backward-up-list)
 			   (rgr-perl-this-line-definition-name)))


@@ 636,7 637,7 @@ and too impatient to wait.  -- rgr, 1-Jul-13.]")
 		       (name-regexp (format "\n=head3 %s\n" name))
 		       (level 0))
 		  (while (and (looking-at "\n=head\\([0-9]\\) \\(.+\\)\n")
-			      (setq level (string-to-int (match-string 1)))
+			      (setq level (string-to-number (match-string 1)))
 			      ;; Keep going past subheadings, or if we're
 			      ;; alphabetically before the name of interest.
 			      ;; (We don't worry about documented names that