~rgrjr/rgr-hacks

f1acd03945ae6fc123b01601169f4e354fd2c65b — Bob Rogers a month ago e43e6da
Fix string-to-number in rgr-perl-update-method-documentation

* rgr-perl-hacks.el:
   + (rgr-perl-update-method-documentation):  Oops; it's string-to-number
   + Also, use lexical binding.
1 files changed, 3 insertions(+), 2 deletions(-)

M rgr-perl-hacks.el
M rgr-perl-hacks.el => rgr-perl-hacks.el +3 -2
@@ 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