445 |
(defvar view-read-only nil |
(defvar view-read-only nil |
446 |
"*Non-nil means buffers visiting files read-only, do it in view mode.") |
"*Non-nil means buffers visiting files read-only, do it in view mode.") |
447 |
|
|
448 |
|
(put 'ange-ftp-completion-hook-function 'safe-magic t) |
449 |
(defun ange-ftp-completion-hook-function (op &rest args) |
(defun ange-ftp-completion-hook-function (op &rest args) |
450 |
"Provides support for ange-ftp host name completion. |
"Provides support for ange-ftp host name completion. |
451 |
Runs the usual ange-ftp hook, but only for completion operations." |
Runs the usual ange-ftp hook, but only for completion operations." |