* emacs-lock.el (emacs-lock-mode): Fix typo in variable name.

  Fix check of `emacs-lock-unlockable-modes'.
  Coerce true values of `emacs-lock--try-unlocking' to t.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d6455a9e6f242dad0d20e62a68a4fc5f1b6fcd7f..3214ed2882638cd410cc41dfa8c991df24ad9d08 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-07-05  Juanma Barranquero  <lekktu@gmail.com>
+
+       * emacs-lock.el (emacs-lock-mode): Fix typo in variable name.
+       Fix check of `emacs-lock-unlockable-modes'.
+       Coerce true values of `emacs-lock--try-unlocking' to t.
+
 2011-07-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * font-lock.el (font-lock-builtin-face): Change from Orchid to

diff --git a/lisp/emacs-lock.el b/lisp/emacs-lock.el
index 7cf0f337705ca68fe0d2c2f3aeac24d958024347..18411f7d2efc4a1a8a339821ede9f2b5e354ed26 100644 (file)
--- a/lisp/emacs-lock.el
+++ b/lisp/emacs-lock.el
@@ -195,7 +195,7 @@ Other values are interpreted as usual."
   :init-value nil
   :lighter (""
             (emacs-lock--try-unlocking " locked:" " Locked:")
-            (:eval (symbol-name emacs-lock-model)))
+            (:eval (symbol-name emacs-lock-mode)))
   :group 'emacs-lock
   :variable (emacs-lock-mode .
                              (lambda (mode)
@@ -203,9 +203,10 @@ Other values are interpreted as usual."
   (when emacs-lock-mode
     (setq emacs-lock--old-mode emacs-lock-mode)
     (setq emacs-lock--try-unlocking
-          (or (and (eq emacs-lock-unlockable-modes t)
-                   (emacs-lock-live-process-p (current-buffer)))
-              (assq major-mode emacs-lock-unlockable-modes)))))
+          (and (if (eq emacs-lock-unlockable-modes t)
+                   (emacs-lock-live-process-p (current-buffer))
+                 (assq major-mode emacs-lock-unlockable-modes))
+               t))))
 
 (unless noninteractive
   (add-hook 'kill-buffer-query-functions 'emacs-lock--kill-buffer-query-functions)