mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

Turn on lexical-binding in mb-depth.el

Browse Source 
* lisp/mb-depth.el: Turn on lexical-binding.
(minibuffer-depth-setup): Bind things used multiple times.
This commit is contained in:
Mark Oteiza 2017-01-04 22:31:26 -05:00
parent 308d596223
commit 0392f942c7
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/mb-depth.el
View File

@ -1,4 +1,4 @@
;;; mb-depth.el --- Indicate minibuffer-depth in prompt
;;; mb-depth.el --- Indicate minibuffer-depth in prompt -*- lexical-binding: t -*-
;;
;; Copyright (C) 2006-2017 Free Software Foundation, Inc.
;;
@ -45,13 +45,15 @@ and must return a string.")
(defun minibuffer-depth-setup ()
"Set up a minibuffer for `minibuffer-depth-indicate-mode'.
The prompt should already have been inserted."
(when (> (minibuffer-depth) 1)
(setq minibuffer-depth-overlay (make-overlay (point-min) (1+ (point-min))))
(overlay-put minibuffer-depth-overlay 'before-string
(if minibuffer-depth-indicator-function
(funcall minibuffer-depth-indicator-function (minibuffer-depth))
(propertize (format "[%d]" (minibuffer-depth)) 'face 'highlight)))
(overlay-put minibuffer-depth-overlay 'evaporate t)))
(let ((depth (minibuffer-depth)))
(when (> depth 1)
(let ((pos (point-min)))
(setq minibuffer-depth-overlay (make-overlay pos (1+ pos))))
(overlay-put minibuffer-depth-overlay 'before-string
(if minibuffer-depth-indicator-function
(funcall minibuffer-depth-indicator-function depth)
(propertize (format "[%d]" depth) 'face 'highlight)))
(overlay-put minibuffer-depth-overlay 'evaporate t))))
;;;###autoload
(define-minor-mode minibuffer-depth-indicate-mode