#10: Fix quoting of window-numbering-assign-func

This commit is contained in:
Nikolaj Schumacher 2016-08-09 20:09:53 +02:00
parent 575ad20354
commit eefbf9453f

View file

@ -162,10 +162,10 @@ windows to numbers."
(let ((windows (window-list nil 0 (frame-first-window)))) (let ((windows (window-list nil 0 (frame-first-window))))
(run-hook-with-args 'window-numbering-before-hook windows) (run-hook-with-args 'window-numbering-before-hook windows)
(when window-numbering-assign-func (when window-numbering-assign-func
(mapc `(lambda (window) (mapc (lambda (window)
(with-selected-window window (with-selected-window window
(with-current-buffer (window-buffer window) (with-current-buffer (window-buffer window)
(let ((num (funcall ,window-numbering-assign-func))) (let ((num (funcall window-numbering-assign-func)))
(when num (when num
(window-numbering-assign window num)))))) (window-numbering-assign window num))))))
windows)) windows))