diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-10-26 18:14:31 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-10-26 18:14:31 +0000 |
commit | 989970ae096c43da35a0c4854cf4187e371fdb71 (patch) | |
tree | b0e608ae3022ac6f837926a4c1bc9cb25e4b2747 | |
parent | aa952edc8e02efd6fd3fcf18d5768d5022feed8a (diff) | |
download | emacs-989970ae096c43da35a0c4854cf4187e371fdb71.tar.gz |
(electric-perl-terminator, perl-indent-command):
(perl-backward-to-noncomment, indent-perl-exp): Avoid error if
comment-start-skip is nil.
-rw-r--r-- | lisp/progmodes/perl-mode.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index e800b86058a..ed4eb1e369c 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -357,7 +357,8 @@ If at end-of-line, and not in a comment or a quote, correct the's indentation." (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 @@ possible action from the following list: (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 @@ Returns (parse-state) if line starts inside a string." (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 @@ Returns (parse-state) if line starts inside a string." (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)) |