442 |
(or (fboundp 'file-locked-p) |
(or (fboundp 'file-locked-p) |
443 |
(defalias 'file-locked-p 'ignore)) |
(defalias 'file-locked-p 'ignore)) |
444 |
|
|
445 |
(defvar view-read-only) ;Declared in view.el. |
(defcustom view-read-only nil |
446 |
|
"*Non-nil means buffers visiting files read-only, do it in view mode." |
447 |
|
:type 'boolean |
448 |
|
:group 'view) |
449 |
|
|
450 |
(put 'ange-ftp-completion-hook-function 'safe-magic t) |
(put 'ange-ftp-completion-hook-function 'safe-magic t) |
451 |
(defun ange-ftp-completion-hook-function (op &rest args) |
(defun ange-ftp-completion-hook-function (op &rest args) |