1105 |
;; Do `PC-do-completion' without substitution |
;; Do `PC-do-completion' without substitution |
1106 |
(let* (save) |
(let* (save) |
1107 |
(fset 'save (symbol-function 'substitute-in-file-name)) |
(fset 'save (symbol-function 'substitute-in-file-name)) |
1108 |
(fset 'substitute-in-file-name (symbol-function 'identity)) |
(unwind-protect |
1109 |
ad-do-it |
(progn |
1110 |
(fset 'substitute-in-file-name (symbol-function 'save))) |
(fset 'substitute-in-file-name (symbol-function 'identity)) |
1111 |
|
ad-do-it) |
1112 |
|
(fset 'substitute-in-file-name (symbol-function 'save)))) |
1113 |
|
|
1114 |
;; Expand "$" |
;; Expand "$" |
1115 |
(let* ((beg (or (and (functionp 'minibuffer-prompt-end) ; Emacs 21 |
(let* ((beg (or (and (functionp 'minibuffer-prompt-end) ; Emacs 21 |