/[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.40 by lektu, Fri Feb 14 09:58:50 2003 UTC revision 1.41 by lektu, Tue Feb 18 12:49:26 2003 UTC
# Line 1835  to nil." Line 1835  to nil."
1835    (let ((beg (save-excursion (beginning-of-line) (point)))    (let ((beg (save-excursion (beginning-of-line) (point)))
1836          (dollar (and (eq last-command-char ?$)          (dollar (and (eq last-command-char ?$)
1837                       (eq this-command 'self-insert-command)))                       (eq this-command 'self-insert-command)))
1838          (delete (and (memq last-command-char '(?\ ?\n ?\t ?\f))          (delete (and (memq last-command-char '(?\  ?\n ?\t ?\f))
1839                       (memq this-command '(self-insert-command newline))))                       (memq this-command '(self-insert-command newline))))
1840          my do)          my do)
1841      (and (save-excursion      (and (save-excursion
# Line 1905  to nil." Line 1905  to nil."
1905    
1906  (defun cperl-electric-pod ()  (defun cperl-electric-pod ()
1907    "Insert a POD chunk appropriate after a =POD directive."    "Insert a POD chunk appropriate after a =POD directive."
1908    (let ((delete (and (memq last-command-char '(?\ ?\n ?\t ?\f))    (let ((delete (and (memq last-command-char '(?\  ?\n ?\t ?\f))
1909                       (memq this-command '(self-insert-command newline))))                       (memq this-command '(self-insert-command newline))))
1910          head1 notlast name p really-delete over)          head1 notlast name p really-delete over)
1911      (and (save-excursion      (and (save-excursion
# Line 4232  indentation and initial hashes.  Behaves Line 4232  indentation and initial hashes.  Behaves
4232           fill-column)           fill-column)
4233    (let ((c (save-excursion (beginning-of-line)    (let ((c (save-excursion (beginning-of-line)
4234                             (cperl-to-comment-or-eol) (point)))                             (cperl-to-comment-or-eol) (point)))
4235          (s (memq (following-char) '(?\ ?\t))) marker)          (s (memq (following-char) '(?\  ?\t))) marker)
4236      (if (>= c (point)) nil      (if (>= c (point)) nil
4237        (setq marker (point-marker))        (setq marker (point-marker))
4238        (cperl-fill-paragraph)        (cperl-fill-paragraph)
# Line 4241  indentation and initial hashes.  Behaves Line 4241  indentation and initial hashes.  Behaves
4241        (if (bolp) (progn (re-search-forward "#+[ \t]*")        (if (bolp) (progn (re-search-forward "#+[ \t]*")
4242                          (goto-char (match-end 0))))                          (goto-char (match-end 0))))
4243        ;; Following space could have gone:        ;; Following space could have gone:
4244        (if (or (not s) (memq (following-char) '(?\ ?\t))) nil        (if (or (not s) (memq (following-char) '(?\  ?\t))) nil
4245          (insert " ")          (insert " ")
4246          (backward-char 1))          (backward-char 1))
4247        ;; Previous space could have gone:        ;; Previous space could have gone:
4248        (or (memq (preceding-char) '(?\ ?\t)) (insert " "))))))        (or (memq (preceding-char) '(?\  ?\t)) (insert " "))))))
4249    
4250  (defun cperl-imenu-addback (lst &optional isback name)  (defun cperl-imenu-addback (lst &optional isback name)
4251    ;; 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.40  
changed lines
  Added in v.1.41

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