emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Juanma Barranquero
Subject: [Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el
Date: Tue, 18 Feb 2003 07:49:26 -0500

Index: emacs/lisp/progmodes/cperl-mode.el
diff -c emacs/lisp/progmodes/cperl-mode.el:1.40 
emacs/lisp/progmodes/cperl-mode.el:1.41
*** emacs/lisp/progmodes/cperl-mode.el:1.40     Fri Feb 14 04:58:50 2003
--- emacs/lisp/progmodes/cperl-mode.el  Tue Feb 18 07:49:26 2003
***************
*** 1835,1841 ****
    (let ((beg (save-excursion (beginning-of-line) (point)))
        (dollar (and (eq last-command-char ?$)
                     (eq this-command 'self-insert-command)))
!       (delete (and (memq last-command-char '(?\ ?\n ?\t ?\f))
                     (memq this-command '(self-insert-command newline))))
        my do)
      (and (save-excursion
--- 1835,1841 ----
    (let ((beg (save-excursion (beginning-of-line) (point)))
        (dollar (and (eq last-command-char ?$)
                     (eq this-command 'self-insert-command)))
!       (delete (and (memq last-command-char '(?\  ?\n ?\t ?\f))
                     (memq this-command '(self-insert-command newline))))
        my do)
      (and (save-excursion
***************
*** 1905,1911 ****
  
  (defun cperl-electric-pod ()
    "Insert a POD chunk appropriate after a =POD directive."
!   (let ((delete (and (memq last-command-char '(?\ ?\n ?\t ?\f))
                     (memq this-command '(self-insert-command newline))))
        head1 notlast name p really-delete over)
      (and (save-excursion
--- 1905,1911 ----
  
  (defun cperl-electric-pod ()
    "Insert a POD chunk appropriate after a =POD directive."
!   (let ((delete (and (memq last-command-char '(?\  ?\n ?\t ?\f))
                     (memq this-command '(self-insert-command newline))))
        head1 notlast name p really-delete over)
      (and (save-excursion
***************
*** 4232,4238 ****
         fill-column)
    (let ((c (save-excursion (beginning-of-line)
                           (cperl-to-comment-or-eol) (point)))
!       (s (memq (following-char) '(?\ ?\t))) marker)
      (if (>= c (point)) nil
        (setq marker (point-marker))
        (cperl-fill-paragraph)
--- 4232,4238 ----
         fill-column)
    (let ((c (save-excursion (beginning-of-line)
                           (cperl-to-comment-or-eol) (point)))
!       (s (memq (following-char) '(?\  ?\t))) marker)
      (if (>= c (point)) nil
        (setq marker (point-marker))
        (cperl-fill-paragraph)
***************
*** 4241,4251 ****
        (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
--- 4241,4251 ----
        (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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]