From 0c602a0f28f46949274f225908c2b8bde561d051 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 29 Jan 2003 12:18:13 +0000 Subject: [PATCH] (cperl-beautify-level, cperl-beautify-regexp): Fix use of `prefix-numeric-value'. (cperl-calculate-indent): Fix typo. --- lisp/ChangeLog | 10 ++++++++++ lisp/progmodes/cperl-mode.el | 10 +++------- 2 files changed, 13 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 55063e3503c..dac69b4fa2e 100644 --- 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 * arc-mode.el (archive-lzh-summarize): Fix previous change. diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 86147a2ca73..3e363220058 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))) -- 2.39.5