diff options
author | Juanma Barranquero <[email protected]> | 2003-01-29 12:18:13 +0000 |
---|---|---|
committer | Juanma Barranquero <[email protected]> | 2003-01-29 12:18:13 +0000 |
commit | 0c602a0f28f46949274f225908c2b8bde561d051 (patch) | |
tree | 63857945ee012884fe8c325b5e99d9eea4ff498f /lisp/progmodes/cperl-mode.el | |
parent | 12a382d45e26f717fdf4e0beb2365f75405f9435 (diff) |
(cperl-beautify-level, cperl-beautify-regexp): Fix use of
`prefix-numeric-value'.
(cperl-calculate-indent): Fix typo.
Diffstat (limited to 'lisp/progmodes/cperl-mode.el')
-rw-r--r-- | lisp/progmodes/cperl-mode.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 86147a2ca7..3e36322005 100644 --- 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))) |