[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/dabbrev.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/dabbrev.el |
Date: |
Tue, 03 Jun 2003 07:07:23 -0400 |
Index: emacs/lisp/dabbrev.el
diff -c emacs/lisp/dabbrev.el:1.67 emacs/lisp/dabbrev.el:1.68
*** emacs/lisp/dabbrev.el:1.67 Tue Feb 4 06:09:53 2003
--- emacs/lisp/dabbrev.el Tue Jun 3 07:07:23 2003
***************
*** 613,628 ****
(defun dabbrev--goto-start-of-abbrev ()
;; Move backwards over abbrev chars
(save-match-data
! (if (not (bobp))
! (progn
! (forward-char -1)
! (while (and (looking-at dabbrev--abbrev-char-regexp)
! (not (bobp))
! (not (= (point) (field-beginning (point) nil
! (1- (point))))))
! (forward-char -1))
! (or (looking-at dabbrev--abbrev-char-regexp)
! (forward-char 1))))
(and dabbrev-abbrev-skip-leading-regexp
(while (looking-at dabbrev-abbrev-skip-leading-regexp)
(forward-char 1)))))
--- 613,627 ----
(defun dabbrev--goto-start-of-abbrev ()
;; Move backwards over abbrev chars
(save-match-data
! (when (> (point) (minibuffer-prompt-end))
! (forward-char -1)
! (while (and (looking-at dabbrev--abbrev-char-regexp)
! (> (point) (minibuffer-prompt-end))
! (not (= (point) (field-beginning (point) nil
! (1- (point))))))
! (forward-char -1))
! (or (looking-at dabbrev--abbrev-char-regexp)
! (forward-char 1)))
(and dabbrev-abbrev-skip-leading-regexp
(while (looking-at dabbrev-abbrev-skip-leading-regexp)
(forward-char 1)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/dabbrev.el,
Richard M. Stallman <=