From a7305f6e9f63ad31a8b59174f85782fb690c5b24 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 16 Sep 1996 09:43:42 +0000 Subject: [PATCH] (file-locked-p): Alias to `ignore' if no file locking. --- lisp/files.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/files.el b/lisp/files.el index 380ab5398d5..b23bac8faf5 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -257,6 +257,8 @@ and ignores this variable.") (defalias 'lock-buffer 'ignore)) (or (fboundp 'unlock-buffer) (defalias 'unlock-buffer 'ignore)) +(or (fboundp 'file-locked-p) + (defalias 'file-locked-p 'ignore)) ;; This hook function provides support for ange-ftp host name ;; completion. It runs the usual ange-ftp hook, but only for -- 2.39.2