changeset 47014:39b2e060a7f0

(ange-ftp-completion-hook-function): Add safe-magic prop.
author Richard M. Stallman <rms@gnu.org>
date Sat, 24 Aug 2002 02:57:31 +0000
parents fbf686ff4765
children 7faae7c35e07
files lisp/files.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Sat Aug 24 01:08:28 2002 +0000
+++ b/lisp/files.el	Sat Aug 24 02:57:31 2002 +0000
@@ -445,6 +445,7 @@
 (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."