Mercurial > emacs
comparison lisp/files.el @ 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 | 23b6ab646d7b |
| children | a2c9058db731 |
comparison
equal
deleted
inserted
replaced
| 47013:fbf686ff4765 | 47014:39b2e060a7f0 |
|---|---|
| 443 (defalias 'file-locked-p 'ignore)) | 443 (defalias 'file-locked-p 'ignore)) |
| 444 | 444 |
| 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." |
| 451 ;; Having this here avoids the need to load ange-ftp when it's not | 452 ;; Having this here avoids the need to load ange-ftp when it's not |
| 452 ;; really in use. | 453 ;; really in use. |