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

Diff of /emacs/lisp/simple.el

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

revision 1.650 by kfstorm, Fri Jul 16 10:42:00 2004 UTC revision 1.651 by eliz, Fri Jul 23 11:52:03 2004 UTC
# Line 4313  of the differing parts is, by contrast, Line 4313  of the differing parts is, by contrast,
4313      (if minibuffer-completing-file-name      (if minibuffer-completing-file-name
4314          (with-current-buffer mainbuf          (with-current-buffer mainbuf
4315            (setq default-directory (file-name-directory mbuf-contents))))            (setq default-directory (file-name-directory mbuf-contents))))
4316        ;; If partial-completion-mode is on, point might not be after the
4317        ;; last character in the minibuffer.
4318        ;; FIXME: This still doesn't work if the text to be completed
4319        ;; starts with a `-'.
4320        (when (and partial-completion-mode (not (eobp)))
4321          (setq mbuf-contents
4322                (substring mbuf-contents 0 (- (point) (point-max)))))
4323      (with-current-buffer standard-output      (with-current-buffer standard-output
4324        (completion-list-mode)        (completion-list-mode)
4325        (make-local-variable 'completion-reference-buffer)        (make-local-variable 'completion-reference-buffer)

Legend:
Removed from v.1.650  
changed lines
  Added in v.1.651

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