mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(comint-replace-by-expanded-filename): Do nothing if

Browse source 
comint-match-partial-filename returns nil.
This commit is contained in:
Kim F. Storm 2002-02-25 21:07:37 +00:00
parent 86078cf060
commit bb671f9ece
2 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,3 +1,12 @@
2002-02-25 Kim F. Storm <no-spam@cua.dk>
* comint.el (comint-replace-by-expanded-filename): Do nothing if
comint-match-partial-filename returns nil.
* shell.el (shell-pcomplete-setup-done): New variable.
(shell-pcomplete): Use it instead of shell-pcomplete-setup-p.
(shell-pcomplete-reverse): Ditto.
2002-02-25 Per Abrahamsen <abraham@dina.kvl.dk>
* ps-print.el (ps-print-printer): Added `lpr' customize group

6
lisp/comint.el
View file

@ -2756,8 +2756,10 @@ removed, and the filename is made absolute instead of relative. For expansion
see `expand-file-name' and `substitute-in-file-name'. For completion see
`comint-dynamic-complete-filename'."
(interactive)
(replace-match (expand-file-name (comint-match-partial-filename)) t t)
(comint-dynamic-complete-filename))
(let ((filename (comint-match-partial-filename)))
(when filename
(replace-match (expand-file-name filename) t t)
(comint-dynamic-complete-filename))))
(defun comint-dynamic-simple-complete (stub candidates)