[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el |
Date: |
Wed, 19 Feb 2003 16:44:41 -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
- [Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el, Juanma Barranquero, 2003/02/04
- [Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el, Juanma Barranquero, 2003/02/14
- [Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el, Juanma Barranquero, 2003/02/18
- [Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el, Stefan Monnier, 2003/02/19
- [Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el,
Stefan Monnier <=
- [Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el, Stefan Monnier, 2003/02/22
- [Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el, Stefan Monnier, 2003/02/22