From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 16 Sep 1996 09:43:42 +0000 (+0000)
Subject: (file-locked-p): Alias to `ignore' if no file locking.
X-Git-Tag: emacs-20.1~3730
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a7305f6e9f63ad31a8b59174f85782fb690c5b24;p=emacs.git

(file-locked-p): Alias to `ignore' if no file locking.
---

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