changeset 16214:fa8dbed4d40e

(file-locked-p): Alias to `ignore' if no file locking.
author Richard M. Stallman <rms@gnu.org>
date Mon, 16 Sep 1996 09:43:42 +0000
parents 3b8851bebc76
children 2c91cd1a660a
files lisp/files.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Mon Sep 16 09:32:54 1996 +0000
+++ b/lisp/files.el	Mon Sep 16 09:43:42 1996 +0000
@@ -257,6 +257,8 @@
     (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