(ange-ftp-completion-hook-function): Add safe-magic prop.

diff --git a/lisp/files.el b/lisp/files.el
index a42038b7fcc2f12b132fe9244cefc2a9355b7232..bc9c6dca38bafa49a647a36aa292e41f50afb580 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -446,6 +446,7 @@ and ignores this variable."
 (defvar view-read-only nil
   "*Non-nil means buffers visiting files read-only, do it in view mode.")
 
+(put 'ange-ftp-completion-hook-function 'safe-magic t)
 (defun ange-ftp-completion-hook-function (op &rest args)
   "Provides support for ange-ftp host name completion.
 Runs the usual ange-ftp hook, but only for completion operations."