Index: emacs/lisp/progmodes/cperl-mode.el
diff -c emacs/lisp/progmodes/cperl-mode.el:1.71
emacs/lisp/progmodes/cperl-mode.el:1.72
*** emacs/lisp/progmodes/cperl-mode.el:1.71 Wed Jun 29 07:59:36 2005
--- emacs/lisp/progmodes/cperl-mode.el Wed Jun 29 13:53:36 2005
***************
*** 4355,4361 ****
fill-column)
(let ((c (save-excursion (beginning-of-line)
(cperl-to-comment-or-eol) (point)))
! (s (memq (following-char) '(?\ ?\t))) marker)
(if (>= c (point))
;; Don't break line inside code: only inside comment.
nil
--- 4355,4361 ----
fill-column)
(let ((c (save-excursion (beginning-of-line)
(cperl-to-comment-or-eol) (point)))
! (s (memq (following-char) '(?\s ?\t))) marker)
(if (>= c (point))
;; Don't break line inside code: only inside comment.
nil
***************
*** 4366,4376 ****
(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
(insert " ")
(backward-char 1))
;; Previous space could have gone:
! (or (memq (preceding-char) '(?\ ?\t)) (insert " "))))))
(defun cperl-imenu-addback (lst &optional isback name)
;; We suppose that the lst is a DAG, unless the first element only
--- 4366,4376 ----
(if (bolp) (progn (re-search-forward "#+[ \t]*")
(goto-char (match-end 0))))
;; Following space could have gone:
! (if (or (not s) (memq (following-char) '(?\s ?\t))) nil
(insert " ")
(backward-char 1))
;; Previous space could have gone:
! (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
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
