Mercurial > emacs
changeset 49516:774eed0b5c78
(cperl-beautify-level, cperl-beautify-regexp): Fix use of
`prefix-numeric-value'.
(cperl-calculate-indent): Fix typo.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 29 Jan 2003 12:16:54 +0000 |
| parents | 6a9667d1f28a |
| children | 5dc217934ac3 |
| files | lisp/progmodes/cperl-mode.el |
| diffstat | 1 files changed, 3 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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)))