From 57abef1db3b1edde9c459a8da5c2427c5ec8a826 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 29 Aug 2002 19:27:54 +0000 Subject: [PATCH] (ange-ftp-completion-hook-function): Add safe-magic prop. --- lisp/files.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/files.el b/lisp/files.el index a42038b7fcc..bc9c6dca38b 100644 --- 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." -- 2.39.2