diff options
| -rw-r--r-- | lisp/files.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el index b2b75ac3cd7..abba36a5c07 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -445,6 +445,7 @@ and ignores this variable." | |||
| 445 | (defvar view-read-only nil | 445 | (defvar view-read-only nil |
| 446 | "*Non-nil means buffers visiting files read-only, do it in view mode.") | 446 | "*Non-nil means buffers visiting files read-only, do it in view mode.") |
| 447 | 447 | ||
| 448 | (put 'ange-ftp-completion-hook-function 'safe-magic t) | ||
| 448 | (defun ange-ftp-completion-hook-function (op &rest args) | 449 | (defun ange-ftp-completion-hook-function (op &rest args) |
| 449 | "Provides support for ange-ftp host name completion. | 450 | "Provides support for ange-ftp host name completion. |
| 450 | Runs the usual ange-ftp hook, but only for completion operations." | 451 | Runs the usual ange-ftp hook, but only for completion operations." |