/[emacs]/emacs/lisp/dabbrev.el
ViewVC logotype

Diff of /emacs/lisp/dabbrev.el

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

revision 1.67 by lektu, Tue Feb 4 11:09:53 2003 UTC revision 1.68 by rms, Tue Jun 3 11:07:23 2003 UTC
# Line 613  See also `dabbrev-abbrev-char-regexp' an Line 613  See also `dabbrev-abbrev-char-regexp' an
613  (defun dabbrev--goto-start-of-abbrev ()  (defun dabbrev--goto-start-of-abbrev ()
614    ;; Move backwards over abbrev chars    ;; Move backwards over abbrev chars
615    (save-match-data    (save-match-data
616      (if (not (bobp))      (when (> (point) (minibuffer-prompt-end))
617          (progn        (forward-char -1)
618            (forward-char -1)        (while (and (looking-at dabbrev--abbrev-char-regexp)
619            (while (and (looking-at dabbrev--abbrev-char-regexp)                    (> (point) (minibuffer-prompt-end))
620                        (not (bobp))                    (not (= (point) (field-beginning (point) nil
621                        (not (= (point) (field-beginning (point) nil                                                     (1- (point))))))
622                                                         (1- (point))))))          (forward-char -1))
623              (forward-char -1))        (or (looking-at dabbrev--abbrev-char-regexp)
624            (or (looking-at dabbrev--abbrev-char-regexp)            (forward-char 1)))
               (forward-char 1))))  
625      (and dabbrev-abbrev-skip-leading-regexp      (and dabbrev-abbrev-skip-leading-regexp
626           (while (looking-at dabbrev-abbrev-skip-leading-regexp)           (while (looking-at dabbrev-abbrev-skip-leading-regexp)
627             (forward-char 1)))))             (forward-char 1)))))

Legend:
Removed from v.1.67  
changed lines
  Added in v.1.68

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