]> git.eshelyaron.com Git - emacs.git/commitdiff
Use lexical-binding in tool-bar.el
authorStefan Kangas <stefan@marxist.se>
Tue, 27 Oct 2020 00:29:43 +0000 (01:29 +0100)
committerStefan Kangas <stefan@marxist.se>
Tue, 27 Oct 2020 00:39:19 +0000 (01:39 +0100)
* lisp/tool-bar.el: Use lexical-binding.
(tool-bar-add-item, tool-bar-add-item-from-menu): Quote function
symbols as such.

lisp/tool-bar.el

index 7df1e28e06f2e7e4230f80b28384da699e29b32c..84562164300c15aa2f3e40e8538121a07d36dc69 100644 (file)
@@ -1,4 +1,4 @@
-;;; tool-bar.el --- setting up the tool bar
+;;; tool-bar.el --- setting up the tool bar  -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2000-2020 Free Software Foundation, Inc.
 
@@ -139,7 +139,7 @@ ICON.xbm, using `find-image'.
 
 Use this function only to make bindings in the global value of `tool-bar-map'.
 To define items in any other map, use `tool-bar-local-item'."
-  (apply 'tool-bar-local-item icon def key tool-bar-map props))
+  (apply #'tool-bar-local-item icon def key tool-bar-map props))
 
 (defun tool-bar--image-expression (icon)
   "Return an expression that evaluates to an image spec for ICON."
@@ -191,7 +191,7 @@ MAP must contain appropriate binding for `[menu-bar]' which holds a keymap.
 
 Use this function only to make bindings in the global value of `tool-bar-map'.
 To define items in any other map, use `tool-bar-local-item-from-menu'."
-  (apply 'tool-bar-local-item-from-menu command icon
+  (apply #'tool-bar-local-item-from-menu command icon
         (default-value 'tool-bar-map) map props))
 
 ;;;###autoload