diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2013-06-22 04:33:33 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2013-06-22 04:33:33 +0200 |
| commit | 388573ee7c3ef55d9d79039ea7ddeb5f7abb32f6 (patch) | |
| tree | 75c0a86cc951dfb35406a040d626142b00b32c95 /lisp/bs.el | |
| parent | 2663dd23eb43e9ebe20006f46feb6f410f13ac53 (diff) | |
| download | emacs-388573ee7c3ef55d9d79039ea7ddeb5f7abb32f6.tar.gz | |
lisp/bs.el, emacs-lock.el: Use defvar-local, setq-local.
* lisp/bs.el (bs-buffer-show-mark): Make defvar-local.
(bs-mode): Use setq-local.
* lisp/emacs-lock.el (emacs-lock-mode, emacs-lock--old-mode)
(emacs-lock--try-unlocking): Make defvar-local.
Diffstat (limited to 'lisp/bs.el')
| -rw-r--r-- | lisp/bs.el | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/lisp/bs.el b/lisp/bs.el index 9c6c4efd2bc..af213333a79 100644 --- a/lisp/bs.el +++ b/lisp/bs.el @@ -336,15 +336,13 @@ Used internally, only.") ;; Internal globals ;; ---------------------------------------------------------------------- -(defvar bs-buffer-show-mark nil +(defvar-local bs-buffer-show-mark nil "Flag for the current mode for showing this buffer. A value of nil means buffer will be shown depending on the current configuration. A value of `never' means to never show the buffer. A value of `always' means to show buffer regardless of the configuration.") -(make-variable-buffer-local 'bs-buffer-show-mark) - ;; Make face named region (for XEmacs) (unless (facep 'region) (make-face 'region) @@ -648,17 +646,14 @@ available Buffer Selection Menu configuration. to show always. \\[bs-visit-tags-table] -- call `visit-tags-table' on current line's buffer. \\[bs-help] -- display this help text." - (make-local-variable 'font-lock-defaults) - (make-local-variable 'font-lock-verbose) - (make-local-variable 'font-lock-global-modes) (buffer-disable-undo) (setq buffer-read-only t truncate-lines t - show-trailing-whitespace nil - font-lock-global-modes '(not bs-mode) - font-lock-defaults '(bs-mode-font-lock-keywords t) - font-lock-verbose nil) - (set (make-local-variable 'revert-buffer-function) 'bs-refresh) + show-trailing-whitespace nil) + (setq-local font-lock-defaults '(bs-mode-font-lock-keywords t)) + (setq-local font-lock-verbose nil) + (setq-local font-lock-global-modes '(not bs-mode)) + (setq-local revert-buffer-function 'bs-refresh) (add-hook 'window-size-change-functions 'bs--track-window-changes) (add-hook 'kill-buffer-hook 'bs--remove-hooks nil t) (add-hook 'change-major-mode-hook 'bs--remove-hooks nil t)) |