/[emacs]/emacs/lisp/wid-edit.el
ViewVC logotype

Diff of /emacs/lisp/wid-edit.el

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

revision 1.146 by rfrancoise, Sat Sep 24 13:44:00 2005 UTC revision 1.147 by rms, Tue Oct 4 20:31:13 2005 UTC
# Line 2991  It will read a file name from the minibu Line 2991  It will read a file name from the minibu
2991    "Perform completion on file name preceding point."    "Perform completion on file name preceding point."
2992    (interactive)    (interactive)
2993    (let* ((end (point))    (let* ((end (point))
2994           (beg (save-excursion           (beg (widget-field-start widget))
                 (skip-chars-backward "^ ")  
                 (point)))  
2995           (pattern (buffer-substring beg end))           (pattern (buffer-substring beg end))
2996           (name-part (file-name-nondirectory pattern))           (name-part (file-name-nondirectory pattern))
2997           (directory (file-name-directory pattern))           ;; I think defaulting to root is right
2998             ;; because these really should be absolute file names.
2999             (directory (or (file-name-directory pattern) "/"))
3000           (completion (file-name-completion name-part directory)))           (completion (file-name-completion name-part directory)))
3001      (cond ((eq completion t))      (cond ((eq completion t))
3002            ((null completion)            ((null completion)

Legend:
Removed from v.1.146  
changed lines
  Added in v.1.147

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