Mercurial > emacs

changeset 63853:123dae8639ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cperl-do-auto-fill): Change space constants followed by a sexp to "?\s ".
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 29 Jun 2005 13:53:36 +0000
parents dd7fb3231397
children eb3b83171f68
files lisp/progmodes/cperl-mode.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/cperl-mode.el	Wed Jun 29 13:52:29 2005 +0000
+++ b/lisp/progmodes/cperl-mode.el	Wed Jun 29 13:53:36 2005 +0000
@@ -4355,7 +4355,7 @@
 	 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 @@
 	  (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