# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1043842614 0
# Node ID 774eed0b5c787f2ed6a8e2e01326ebcd2c07f8a4
# Parent  6a9667d1f28abee9ab39384ef489b058346e1e97
(cperl-beautify-level, cperl-beautify-regexp): Fix use of
`prefix-numeric-value'.
(cperl-calculate-indent): Fix typo.

diff -r 6a9667d1f28a -r 774eed0b5c78 lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Wed Jan 29 11:54:35 2003 +0000
+++ b/lisp/progmodes/cperl-mode.el	Wed Jan 29 12:16:54 2003 +0000
@@ -2360,7 +2360,7 @@
 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 @@
   "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 @@
 \(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)))