(cperl-beautify-level, cperl-beautify-regexp): Fix use of

`prefix-numeric-value'.
(cperl-calculate-indent): Fix typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 55063e3503c34ac093720e4742b4653c14a5d3ae..dac69b4fa2ebc5dfaefd2f77f9fe2e0e2943cf9c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,16 @@
 
        * composite.el (decompose-composite-char): Fix docstring.
 
+       * select.el (x-set-cut-buffer): Fix docstring. Check type with `stringp'
+       instead of `substring'.
+
+       * textmodes/reftex.el (reftex-TeX-master-file): Use really the buffer
+       file name if no other master file is located.
+
+       * progmodes/cperl-mode.el (cperl-beautify-level)
+       (cperl-beautify-regexp): Fix use of `prefix-numeric-value'.
+       (cperl-calculate-indent): Fix typo.
+
 2003-01-29  Taro Kawagishi  <tarok@transpulse.org>
 
        * arc-mode.el (archive-lzh-summarize): Fix previous change.

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 86147a2ca731f7363e5e64e37f1a921143380ad8..3e3632200583da161e9546e915962519a472a3a1 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -2360,7 +2360,7 @@ In usual case returns an integer: the column to indent to.
 Returns nil if line starts inside a string, t if in a comment.
 
 Will not correct the indentation for labels, but will correct it for braces
-and closing parentheses and brackets.."
+and closing parentheses and brackets."
   (save-excursion
     (if (or
         (and (memq (get-text-property (point) 'syntax-type)
@@ -6796,9 +6796,7 @@ prototype \&SUB   Returns prototype of the function given a reference.
   "Do it.  (Experimental, may change semantics, recheck the result.)
 We suppose that the regexp is scanned already."
   (interactive "P")
-  (if deep
-      (prefix-numeric-value deep)
-    (setq deep -1))
+  (setq deep (if deep (prefix-numeric-value deep) -1))
   (save-excursion
     (goto-char (cperl-make-regexp-x))
     (let ((b (point)) (e (make-marker)))
@@ -6871,9 +6869,7 @@ We suppose that the regexp is scanned already."
 \(Experimental, may change semantics, recheck the result.)
 We suppose that the regexp is scanned already."
   (interactive "P")
-  (if deep
-      (prefix-numeric-value deep)
-    (setq deep -1))
+  (setq deep (if deep (prefix-numeric-value deep) -1))
   (save-excursion
     (cperl-regext-to-level-start)
     (let ((b (point)) (e (make-marker)))