[Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el

[Juanma Barranquero]

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