diff options
| author | Richard M. Stallman | 2002-08-24 02:57:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-08-24 02:57:31 +0000 |
| commit | 1aa8fe46657651c18db8fafb31ef3cbf4bf3accf (patch) | |
| tree | bb785002a1f61d28894dd80b7d9d9957c25ea1c3 | |
| parent | 901e8d1dc5889073fe8acfcff3469ee32228a368 (diff) | |
| download | emacs-1aa8fe46657651c18db8fafb31ef3cbf4bf3accf.tar.gz emacs-1aa8fe46657651c18db8fafb31ef3cbf4bf3accf.zip | |
(ange-ftp-completion-hook-function): Add safe-magic prop.
| -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." |