[Emacs-diffs] Changes to emacs/lisp/wid-edit.el

[Richard M . Stallman]

Index: emacs/lisp/wid-edit.el
diff -c emacs/lisp/wid-edit.el:1.146 emacs/lisp/wid-edit.el:1.147
*** emacs/lisp/wid-edit.el:1.146        Sat Sep 24 13:44:00 2005
--- emacs/lisp/wid-edit.el      Tue Oct  4 20:31:13 2005
***************
*** 2991,3002 ****
    "Perform completion on file name preceding point."
    (interactive)
    (let* ((end (point))
!        (beg (save-excursion
!               (skip-chars-backward "^ ")
!               (point)))
         (pattern (buffer-substring beg end))
         (name-part (file-name-nondirectory pattern))
!        (directory (file-name-directory pattern))
         (completion (file-name-completion name-part directory)))
      (cond ((eq completion t))
          ((null completion)
--- 2991,3002 ----
    "Perform completion on file name preceding point."
    (interactive)
    (let* ((end (point))
!        (beg (widget-field-start widget))
         (pattern (buffer-substring beg end))
         (name-part (file-name-nondirectory pattern))
!        ;; I think defaulting to root is right
!        ;; because these really should be absolute file names.
!        (directory (or (file-name-directory pattern) "/"))
         (completion (file-name-completion name-part directory)))
      (cond ((eq completion t))
          ((null completion)