#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,12 +162,12 @@ windows to numbers."
(let ((windows (window-list nil 0 (frame-first-window))))
(run-hook-with-args 'window-numbering-before-hook windows)
(when window-numbering-assign-func
(mapc `(lambda (window)
(with-selected-window window
(with-current-buffer (window-buffer window)
(let ((num (funcall ,window-numbering-assign-func)))
(when num
(window-numbering-assign window num))))))
(mapc (lambda (window)
(with-selected-window window
(with-current-buffer (window-buffer window)
(let ((num (funcall window-numbering-assign-func)))
(when num
(window-numbering-assign window num))))))
windows))
(dolist (window windows)
(window-numbering-assign window))))