diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-04 20:57:42 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-04 20:57:42 -0500 |
commit | 898a94a9be06a3ab51116778f6b4a263f832759d (patch) | |
tree | 5435a6d3711606dbb778c7d655b8d743de477cef /lisp/menu-bar.el | |
parent | 80e26472206cc44837521ba594cd50e724d9af5c (diff) | |
download | emacs-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.el | 5 |
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 |