Mercurial > emacs
changeset 16472:dbfab9e8b6d8
(electric-perl-terminator, perl-indent-command):
(perl-backward-to-noncomment, indent-perl-exp): Avoid error if
comment-start-skip is nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 26 Oct 1996 18:14:31 +0000 |
| parents | 51916440738f |
| children | 4ef76e689d69 |
| files | lisp/progmodes/perl-mode.el |
| diffstat | 1 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/perl-mode.el Sat Oct 26 18:13:52 1996 +0000 +++ b/lisp/progmodes/perl-mode.el Sat Oct 26 18:14:31 1996 +0000 @@ -357,7 +357,8 @@ (save-excursion (beginning-of-line) (and (not ; eliminate comments quickly - (re-search-forward comment-start-skip insertpos t)) + (and comment-start-skip + (re-search-forward comment-start-skip insertpos t)) ) (or (/= last-command-char ?:) ;; Colon is special only after a label .... (looking-at "\\s-*\\(\\w\\|\\s_\\)+$")) @@ -432,7 +433,8 @@ (if (= oldpnt eol) ; no comment, create one? (indent-for-comment)) (beginning-of-line) - (if (re-search-forward comment-start-skip eol 'move) + (if (and comment-start-skip + (re-search-forward comment-start-skip eol 'move)) (if (eolp) (progn ; kill existing comment (goto-char (match-beginning 0)) @@ -600,7 +602,8 @@ (while (not stop) (setq opoint (point)) (beginning-of-line) - (if (re-search-forward comment-start-skip opoint 'move 1) + (if (and comment-start-skip + (re-search-forward comment-start-skip opoint 'move 1)) (progn (goto-char (match-end 1)) (skip-chars-forward ";"))) (skip-chars-backward " \t\f") @@ -653,7 +656,8 @@ (listp delta) (and (/= 0 delta) (= (- (current-indentation) delta) comment-column))) - (if (re-search-forward comment-start-skip eol t) + (if (and comment-start-skip + (re-search-forward comment-start-skip eol t)) (indent-for-comment))))) ; indent existing comment (forward-line 1)) (goto-char (marker-position oldpnt))