diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-06-29 13:53:36 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-06-29 13:53:36 +0000 |
| commit | 8038e2cf99568a1a85f510ce86bcd0ef28844aec (patch) | |
| tree | 40bf32b7ea2f6f3b410eeded82b77ffe77759725 | |
| parent | 1bcb666b4491f54f70184ae0d55389d16e12a0f5 (diff) | |
| download | emacs-8038e2cf99568a1a85f510ce86bcd0ef28844aec.tar.gz emacs-8038e2cf99568a1a85f510ce86bcd0ef28844aec.tar.bz2 emacs-8038e2cf99568a1a85f510ce86bcd0ef28844aec.zip | |
(cperl-do-auto-fill): Change space constants followed by a sexp to "?\s ".
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 63b7ceb6ed0..052df4eedda 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -4355,7 +4355,7 @@ indentation and initial hashes. Behaves usually outside of comment." fill-column) (let ((c (save-excursion (beginning-of-line) (cperl-to-comment-or-eol) (point))) - (s (memq (following-char) '(?\ ?\t))) marker) + (s (memq (following-char) '(?\s ?\t))) marker) (if (>= c (point)) ;; Don't break line inside code: only inside comment. nil @@ -4366,11 +4366,11 @@ indentation and initial hashes. Behaves usually outside of comment." (if (bolp) (progn (re-search-forward "#+[ \t]*") (goto-char (match-end 0)))) ;; Following space could have gone: - (if (or (not s) (memq (following-char) '(?\ ?\t))) nil + (if (or (not s) (memq (following-char) '(?\s ?\t))) nil (insert " ") (backward-char 1)) ;; Previous space could have gone: - (or (memq (preceding-char) '(?\ ?\t)) (insert " ")))))) + (or (memq (preceding-char) '(?\s ?\t)) (insert " ")))))) (defun cperl-imenu-addback (lst &optional isback name) ;; We suppose that the lst is a DAG, unless the first element only |