XEmacs 21.2.5

[chise/xemacs-chise.git.1] / lisp / setup-paths.el

diff --git a/lisp/setup-paths.el b/lisp/setup-paths.el
index b64dc0b..4b365ef 100644 (file)
--- a/lisp/setup-paths.el
+++ b/lisp/setup-paths.el
@@ -111,10 +111,12 @@
 
 (defun paths-find-lock-directory (roots)
   "Find the lock directory."
+  (defvar configure-lock-directory)
   (paths-find-site-directory roots "lock" "EMACSLOCKDIR" configure-lock-directory))
 
 (defun paths-find-superlock-file (lock-directory)
   "Find the superlock file."
+  ;; #### There is no such variable configure-superlock-file!
   (cond
    ((null lock-directory)
     nil)