From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 24 Aug 2002 02:57:31 +0000 (+0000)
Subject: (ange-ftp-completion-hook-function): Add safe-magic prop.
X-Git-Tag: ttn-vms-21-2-B4~13584
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1aa8fe46657651c18db8fafb31ef3cbf4bf3accf;p=emacs.git

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

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."
 (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."