/[emacs]/emacs/lisp/progmodes/cperl-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/cperl-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.71 by monnier, Wed Jun 29 07:59:36 2005 UTC revision 1.72 by lektu, Wed Jun 29 13:53:36 2005 UTC
# Line 4355  indentation and initial hashes.  Behaves Line 4355  indentation and initial hashes.  Behaves
4355           fill-column)           fill-column)
4356        (let ((c (save-excursion (beginning-of-line)        (let ((c (save-excursion (beginning-of-line)
4357                                 (cperl-to-comment-or-eol) (point)))                                 (cperl-to-comment-or-eol) (point)))
4358              (s (memq (following-char) '(?\ ?\t))) marker)              (s (memq (following-char) '(?\s ?\t))) marker)
4359          (if (>= c (point))          (if (>= c (point))
4360              ;; Don't break line inside code: only inside comment.              ;; Don't break line inside code: only inside comment.
4361              nil              nil
# Line 4366  indentation and initial hashes.  Behaves Line 4366  indentation and initial hashes.  Behaves
4366            (if (bolp) (progn (re-search-forward "#+[ \t]*")            (if (bolp) (progn (re-search-forward "#+[ \t]*")
4367                              (goto-char (match-end 0))))                              (goto-char (match-end 0))))
4368            ;; Following space could have gone:            ;; Following space could have gone:
4369            (if (or (not s) (memq (following-char) '(?\ ?\t))) nil            (if (or (not s) (memq (following-char) '(?\s ?\t))) nil
4370              (insert " ")              (insert " ")
4371              (backward-char 1))              (backward-char 1))
4372            ;; Previous space could have gone:            ;; Previous space could have gone:
4373            (or (memq (preceding-char) '(?\ ?\t)) (insert " "))))))            (or (memq (preceding-char) '(?\s ?\t)) (insert " "))))))
4374    
4375  (defun cperl-imenu-addback (lst &optional isback name)  (defun cperl-imenu-addback (lst &optional isback name)
4376    ;; We suppose that the lst is a DAG, unless the first element only    ;; We suppose that the lst is a DAG, unless the first element only

Legend:
Removed from v.1.71  
changed lines
  Added in v.1.72

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26