summaryrefslogtreecommitdiff
path: root/lisp/menu-bar.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2021-01-04 20:57:42 -0500
committerStefan Monnier <monnier@iro.umontreal.ca>2021-01-04 20:57:42 -0500
commit898a94a9be06a3ab51116778f6b4a263f832759d (patch)
tree5435a6d3711606dbb778c7d655b8d743de477cef /lisp/menu-bar.el
parent80e26472206cc44837521ba594cd50e724d9af5c (diff)
downloademacs-898a94a9be06a3ab51116778f6b4a263f832759d.tar.gz
emacs-898a94a9be06a3ab51116778f6b4a263f832759d.tar.bz2
emacs-898a94a9be06a3ab51116778f6b4a263f832759d.zip
Use lexical-binding in the remaining preloaded files
* lisp/widget.el: * lisp/w32-fns.el: * lisp/textmodes/fill.el: * lisp/term/common-win.el: * lisp/scroll-bar.el: * lisp/rfn-eshadow.el: * lisp/menu-bar.el: * lisp/language/tibetan.el: * lisp/language/thai.el: * lisp/language/misc-lang.el: * lisp/language/lao.el: * lisp/language/korean.el: * lisp/language/japanese.el: * lisp/language/indian.el: * lisp/language/hebrew.el: * lisp/language/european.el: * lisp/language/ethiopic.el: * lisp/language/english.el: * lisp/language/cyrillic.el: * lisp/language/chinese.el: * lisp/jka-cmpr-hook.el: * lisp/international/ucs-normalize.el: * lisp/international/mule.el: * lisp/international/mule-conf.el: * lisp/international/iso-transl.el: * lisp/international/fontset.el: * lisp/international/characters.el: * lisp/format.el: * lisp/facemenu.el: * lisp/electric.el: * lisp/dos-w32.el: * lisp/dos-fns.el: * lisp/disp-table.el: * lisp/cus-face.el: * lisp/composite.el: * lisp/bindings.el: * admin/unidata/blocks.awk: * admin/charsets/eucjp-ms.awk: * admin/charsets/cp51932.awk: Use `lexical-binding`.
Diffstat (limited to 'lisp/menu-bar.el')
-rw-r--r--lisp/menu-bar.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index c4eae686bd7..526491f0272 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1,4 +1,4 @@
-;;; menu-bar.el --- define a default menu bar
+;;; menu-bar.el --- define a default menu bar -*- lexical-binding: t; -*-
;; Copyright (C) 1993-1995, 2000-2021 Free Software Foundation, Inc.
@@ -229,7 +229,8 @@
(filename (car (find-file-read-args "Find file: " mustmatch))))
(if mustmatch
(find-file-existing filename)
- (find-file filename))))
+ (with-suppressed-warnings ((interactive-only find-file))
+ (find-file filename)))))
;; The "Edit->Search" submenu
(defvar menu-bar-last-search-type nil