Commit b27640fe authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

* 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.
parent bad32783
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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment