emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

scratch/no-purespace fc9f4a7f0eb: Make bindings--define-key obsolete


From: Stefan Kangas
Subject: scratch/no-purespace fc9f4a7f0eb: Make bindings--define-key obsolete
Date: Wed, 21 Aug 2024 18:11:36 -0400 (EDT)

branch: scratch/no-purespace
commit fc9f4a7f0eb340c90302d91fd09ca3f4284875df
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Make bindings--define-key obsolete
    
    It used to be like 'define-key', but was used for making pure copies of
    as much of a menu's data as possible.  With purespace now gone, it can
    be replaced by 'define-key'.
    
    * lisp/bindings.el (bindings--define-key): Make into obsolete
    alias for 'define-key'.  Update all callers.
---
 lisp/bindings.el                |  59 ++--
 lisp/bookmark.el                |  22 +-
 lisp/international/mule-cmds.el |  56 ++--
 lisp/menu-bar.el                | 710 ++++++++++++++++++++--------------------
 lisp/replace.el                 |   4 +-
 lisp/term/ns-win.el             |   8 +-
 lisp/vc/vc-hooks.el             |  50 +--
 7 files changed, 444 insertions(+), 465 deletions(-)

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 6b34c5750c1..8b49a2d9493 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -400,29 +400,6 @@ the symbol `mode-line-format-right-align' is processed by
 ;;;###autoload
 (put 'mode-line-format-right-align 'risky-local-variable t)
 
-(defun bindings--define-key (map key item)
-  "Define KEY in keymap MAP according to ITEM from a menu.
-This is like `define-key', but it takes the definition from the
-specified menu item, and makes pure copies of as much as possible
-of the menu's data."
-  (declare (indent 2))
-  (define-key map key
-    (cond
-     ((not (consp item)) item)     ;Not sure that could be other than a symbol.
-     ;; Keymaps can't be made pure otherwise users can't remove/add elements
-     ;; from/to them any more.
-     ((keymapp item) item)
-     ((stringp (car item))
-      (if (keymapp (cdr item))
-          (cons (purecopy (car item)) (cdr item))
-        (purecopy item)))
-     ((eq 'menu-item (car item))
-      (if (keymapp (nth 2 item))
-          `(menu-item ,(purecopy (nth 1 item)) ,(nth 2 item)
-                      ,@(purecopy (nthcdr 3 item)))
-        (purecopy item)))
-     (t (message "non-menu-item: %S" item) item))))
-
 (defvar mode-line-mode-menu (make-sparse-keymap "Minor Modes") "\
 Menu of mode operations in the mode line.")
 
@@ -454,11 +431,11 @@ a menu, so this function is not useful for non-menu 
keymaps."
 
 (defvar mode-line-major-mode-keymap
   (let ((map (make-sparse-keymap)))
-    (bindings--define-key map [mode-line down-mouse-1]
+    (define-key map [mode-line down-mouse-1]
       `(menu-item "Menu Bar" ignore
         :filter ,(lambda (_) (mouse-menu-major-mode-map))))
     (define-key map [mode-line mouse-2] 'describe-mode)
-    (bindings--define-key map [mode-line down-mouse-3]
+    (define-key map [mode-line down-mouse-3]
       `(menu-item "Minor Modes" ,mode-line-mode-menu
         :filter bindings--sort-menu-keymap))
     map) "\
@@ -509,15 +486,15 @@ mouse-3: Toggle minor modes"
 (defvar mode-line-column-line-number-mode-map
   (let ((map (make-sparse-keymap))
        (menu-map (make-sparse-keymap "Toggle Line and Column Number Display")))
-    (bindings--define-key menu-map [size-indication-mode]
+    (define-key menu-map [size-indication-mode]
       '(menu-item "Display Size Indication" size-indication-mode
                  :help "Toggle displaying a size indication in the mode-line"
                  :button (:toggle . size-indication-mode)))
-    (bindings--define-key menu-map [line-number-mode]
+    (define-key menu-map [line-number-mode]
       '(menu-item "Display Line Numbers" line-number-mode
                  :help "Toggle displaying line numbers in the mode-line"
                  :button (:toggle . line-number-mode)))
-    (bindings--define-key menu-map [column-number-mode]
+    (define-key menu-map [column-number-mode]
       '(menu-item "Display Column Numbers" column-number-mode
                  :help "Toggle displaying column numbers in the mode-line"
                  :button (:toggle . column-number-mode)))
@@ -774,54 +751,54 @@ meaningful if it refers to a lexically bound variable."
 
 ;; Use mode-line-mode-menu for local minor-modes only.
 ;; Global ones can go on the menubar (Options --> Show/Hide).
-(bindings--define-key mode-line-mode-menu [overwrite-mode]
+(define-key mode-line-mode-menu [overwrite-mode]
   '(menu-item "Overwrite (Ovwrt)" overwrite-mode
              :help "Overwrite mode: typed characters replace existing text"
              :button (:toggle . overwrite-mode)))
-(bindings--define-key mode-line-mode-menu [outline-minor-mode]
+(define-key mode-line-mode-menu [outline-minor-mode]
   '(menu-item "Outline (Outl)" outline-minor-mode
              ;; XXX: This needs a good, brief description.
              :help ""
              :button (:toggle . (bound-and-true-p outline-minor-mode))))
-(bindings--define-key mode-line-mode-menu [highlight-changes-mode]
+(define-key mode-line-mode-menu [highlight-changes-mode]
   '(menu-item "Highlight changes (Chg)" highlight-changes-mode
              :help "Show changes in the buffer in a distinctive color"
              :button (:toggle . (bound-and-true-p highlight-changes-mode))))
-(bindings--define-key mode-line-mode-menu [hide-ifdef-mode]
+(define-key mode-line-mode-menu [hide-ifdef-mode]
   '(menu-item "Hide ifdef (Ifdef)" hide-ifdef-mode
              :help "Show/Hide code within #ifdef constructs"
              :button (:toggle . (bound-and-true-p hide-ifdef-mode))))
-(bindings--define-key mode-line-mode-menu [glasses-mode]
+(define-key mode-line-mode-menu [glasses-mode]
   '(menu-item "Glasses (o^o)" glasses-mode
              :help "Insert virtual separators to make long identifiers easy to 
read"
              :button (:toggle . (bound-and-true-p glasses-mode))))
-(bindings--define-key mode-line-mode-menu [font-lock-mode]
+(define-key mode-line-mode-menu [font-lock-mode]
   '(menu-item "Font Lock" font-lock-mode
              :help "Syntax coloring"
              :button (:toggle . font-lock-mode)))
-(bindings--define-key mode-line-mode-menu [flyspell-mode]
+(define-key mode-line-mode-menu [flyspell-mode]
   '(menu-item "Flyspell (Fly)" flyspell-mode
              :help "Spell checking on the fly"
              :button (:toggle . (bound-and-true-p flyspell-mode))))
-(bindings--define-key mode-line-mode-menu [completion-preview-mode]
+(define-key mode-line-mode-menu [completion-preview-mode]
   '(menu-item "Completion Preview (CP)" completion-preview-mode
               :help "Show preview of completion suggestions as you type"
               :enable completion-at-point-functions
               :button (:toggle . (bound-and-true-p completion-preview-mode))))
-(bindings--define-key mode-line-mode-menu [auto-revert-tail-mode]
+(define-key mode-line-mode-menu [auto-revert-tail-mode]
   '(menu-item "Auto revert tail (Tail)" auto-revert-tail-mode
              :help "Revert the tail of the buffer when the file on disk grows"
              :enable (buffer-file-name)
              :button (:toggle . (bound-and-true-p auto-revert-tail-mode))))
-(bindings--define-key mode-line-mode-menu [auto-revert-mode]
+(define-key mode-line-mode-menu [auto-revert-mode]
   '(menu-item "Auto revert (ARev)" auto-revert-mode
              :help "Revert the buffer when the file on disk changes"
              :button (:toggle . (bound-and-true-p auto-revert-mode))))
-(bindings--define-key mode-line-mode-menu [auto-fill-mode]
+(define-key mode-line-mode-menu [auto-fill-mode]
   '(menu-item "Auto fill (Fill)" auto-fill-mode
              :help "Automatically insert new lines"
              :button (:toggle . auto-fill-function)))
-(bindings--define-key mode-line-mode-menu [abbrev-mode]
+(define-key mode-line-mode-menu [abbrev-mode]
   '(menu-item "Abbrev (Abbrev)" abbrev-mode
              :help "Automatically expand abbreviations"
              :button (:toggle . abbrev-mode)))
@@ -1646,6 +1623,8 @@ if `inhibit-field-text-motion' is non-nil."
 ;; Text conversion
 (define-key global-map [text-conversion] 'analyze-text-conversion)
 
+(define-obsolete-function-alias 'bindings--define-key #'define-key "31.1")
+
 ;; Don't look for autoload cookies in this file.
 ;; Local Variables:
 ;; no-update-autoloads: t
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 223a7fedc8d..c0eeba55a92 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -2560,37 +2560,37 @@ strings returned are not."
 ;;;###autoload
 (defvar menu-bar-bookmark-map
   (let ((map (make-sparse-keymap "Bookmark functions")))
-    (bindings--define-key map [load]
+    (define-key map [load]
       '(menu-item "Load a Bookmark File..." bookmark-load
                  :help "Load bookmarks from a bookmark file)"))
-    (bindings--define-key map [write]
+    (define-key map [write]
       '(menu-item "Save Bookmarks As..." bookmark-write
                  :help "Write bookmarks to a file (reading the file name with 
the minibuffer)"))
-    (bindings--define-key map [save]
+    (define-key map [save]
       '(menu-item "Save Bookmarks" bookmark-save
                  :help "Save currently defined bookmarks"))
-    (bindings--define-key map [edit]
+    (define-key map [edit]
       '(menu-item "Edit Bookmark List" bookmark-bmenu-list
                  :help "Display a list of existing bookmarks"))
-    (bindings--define-key map [delete]
+    (define-key map [delete]
       '(menu-item "Delete Bookmark..." bookmark-delete
                  :help "Delete a bookmark from the bookmark list"))
-    (bindings--define-key map [delete-all]
+    (define-key map [delete-all]
       '(menu-item "Delete all Bookmarks..." bookmark-delete-all
                  :help "Delete all bookmarks from the bookmark list"))
-    (bindings--define-key map [rename]
+    (define-key map [rename]
       '(menu-item "Rename Bookmark..." bookmark-rename
                  :help "Change the name of a bookmark"))
-    (bindings--define-key map [locate]
+    (define-key map [locate]
       '(menu-item "Insert Location..." bookmark-locate
                  :help "Insert the name of the file associated with a 
bookmark"))
-    (bindings--define-key map [insert]
+    (define-key map [insert]
       '(menu-item "Insert Contents..." bookmark-insert
                  :help "Insert the text of the file pointed to by a bookmark"))
-    (bindings--define-key map [set]
+    (define-key map [set]
       '(menu-item "Set Bookmark..." bookmark-set
                  :help "Set a bookmark named inside a file."))
-    (bindings--define-key map [jump]
+    (define-key map [jump]
       '(menu-item "Jump to Bookmark..." bookmark-jump
                  :help "Jump to a bookmark (a point in some file)"))
     map))
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 7d784ef3b1b..3556a2c768f 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -59,97 +59,97 @@
 
 (defvar describe-language-environment-map
   (let ((map (make-sparse-keymap "Describe Language Environment")))
-    (bindings--define-key map
+    (define-key map
       [Default] '(menu-item "Default" describe-specified-language-support))
     map))
 
 (defvar setup-language-environment-map
   (let ((map (make-sparse-keymap "Set Language Environment")))
-    (bindings--define-key map
+    (define-key map
       [Default] '(menu-item "Default" setup-specified-language-environment))
     map))
 
 (defvar set-coding-system-map
   (let ((map (make-sparse-keymap "Set Coding System")))
-    (bindings--define-key map [set-buffer-process-coding-system]
+    (define-key map [set-buffer-process-coding-system]
       '(menu-item "For I/O with Subprocess" set-buffer-process-coding-system
         :visible (fboundp 'make-process)
         :enable (get-buffer-process (current-buffer))
         :help "How to en/decode I/O from/to subprocess connected to this 
buffer"))
-    (bindings--define-key map [set-next-selection-coding-system]
+    (define-key map [set-next-selection-coding-system]
       '(menu-item "For Next X Selection" set-next-selection-coding-system
         :visible (display-selections-p)
         :help "How to en/decode next selection/clipboard operation"))
-    (bindings--define-key map [set-selection-coding-system]
+    (define-key map [set-selection-coding-system]
       '(menu-item "For X Selections/Clipboard" set-selection-coding-system
         :visible (display-selections-p)
         :help "How to en/decode data to/from selection/clipboard"))
 
-    (bindings--define-key map [separator-3] menu-bar-separator)
-    (bindings--define-key map [set-terminal-coding-system]
+    (define-key map [separator-3] menu-bar-separator)
+    (define-key map [set-terminal-coding-system]
       '(menu-item "For Terminal" set-terminal-coding-system
         :enable (null (memq initial-window-system '(x w32 ns haiku pgtk
                                                    android)))
         :help "How to encode terminal output"))
-    (bindings--define-key map [set-keyboard-coding-system]
+    (define-key map [set-keyboard-coding-system]
       '(menu-item "For Keyboard" set-keyboard-coding-system
         :help "How to decode keyboard input"))
 
-    (bindings--define-key map [separator-2] menu-bar-separator)
-    (bindings--define-key map [set-file-name-coding-system]
+    (define-key map [separator-2] menu-bar-separator)
+    (define-key map [set-file-name-coding-system]
       '(menu-item "For File Name" set-file-name-coding-system
         :help "How to decode/encode file names"))
-    (bindings--define-key map [revert-buffer-with-coding-system]
+    (define-key map [revert-buffer-with-coding-system]
       '(menu-item "For Reverting This File Now"
         revert-buffer-with-coding-system
         :enable buffer-file-name
         :help "Revisit this file immediately using specified coding system"))
-    (bindings--define-key map [set-buffer-file-coding-system]
+    (define-key map [set-buffer-file-coding-system]
       '(menu-item "For Saving This Buffer" set-buffer-file-coding-system
         :help "How to encode this buffer when saved"))
-    (bindings--define-key map [separator-1] menu-bar-separator)
-    (bindings--define-key map [universal-coding-system-argument]
+    (define-key map [separator-1] menu-bar-separator)
+    (define-key map [universal-coding-system-argument]
       '(menu-item "For Next Command" universal-coding-system-argument
         :help "Coding system to be used by next command"))
     map))
 
 (defvar mule-menu-keymap
   (let ((map (make-sparse-keymap "Mule (Multilingual Environment)")))
-    (bindings--define-key map [mule-diag]
+    (define-key map [mule-diag]
       '(menu-item "Show All Multilingual Settings" mule-diag
         :help "Display multilingual environment settings"))
-    (bindings--define-key map [list-character-sets]
+    (define-key map [list-character-sets]
       '(menu-item "List Character Sets" list-character-sets
         :help "Show table of available character sets"))
-    (bindings--define-key map [describe-coding-system]
+    (define-key map [describe-coding-system]
       '(menu-item "Describe Coding System..." describe-coding-system))
-    (bindings--define-key map [describe-input-method]
+    (define-key map [describe-input-method]
       '(menu-item "Describe Input Method..." describe-input-method
         :help "Keyboard layout for a specific input method"))
-    (bindings--define-key map [describe-language-environment]
+    (define-key map [describe-language-environment]
       `(menu-item "Describe Language Environment"
             ,describe-language-environment-map
             :help "Show multilingual settings for a specific language"))
 
-    (bindings--define-key map [separator-coding-system] menu-bar-separator)
-    (bindings--define-key map [view-hello-file]
+    (define-key map [separator-coding-system] menu-bar-separator)
+    (define-key map [view-hello-file]
       '(menu-item "Show Multilingual Sample Text" view-hello-file
         :enable (file-readable-p
                  (expand-file-name "HELLO" data-directory))
         :help "Demonstrate various character sets"))
-    (bindings--define-key map [set-various-coding-system]
+    (define-key map [set-various-coding-system]
       `(menu-item "Set Coding Systems" ,set-coding-system-map))
 
-    (bindings--define-key map [separator-input-method] menu-bar-separator)
-    (bindings--define-key map [activate-transient-input-method]
+    (define-key map [separator-input-method] menu-bar-separator)
+    (define-key map [activate-transient-input-method]
       '(menu-item "Transient Input Method" activate-transient-input-method))
-    (bindings--define-key map [set-input-method]
+    (define-key map [set-input-method]
       '(menu-item "Select Input Method..." set-input-method))
-    (bindings--define-key map [toggle-input-method]
+    (define-key map [toggle-input-method]
       '(menu-item "Toggle Input Method" toggle-input-method))
 
-    (bindings--define-key map [separator-mule] menu-bar-separator)
-    (bindings--define-key map [set-language-environment]
+    (define-key map [separator-mule] menu-bar-separator)
+    (define-key map [set-language-environment]
       `(menu-item  "Set Language Environment" ,setup-language-environment-map))
     map)
   "Keymap for Mule (Multilingual environment) menu specific commands.")
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index efce55032c8..5e8da575396 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -51,29 +51,29 @@
 
 (defvar menu-bar-print-menu
   (let ((menu (make-sparse-keymap "Print")))
-    (bindings--define-key menu [ps-print-region]
+    (define-key menu [ps-print-region]
       '(menu-item "PostScript Print Region (B+W)" ps-print-region
                   :enable mark-active
                   :help "Pretty-print marked region in black and white to 
PostScript printer"))
-    (bindings--define-key menu [ps-print-buffer]
+    (define-key menu [ps-print-buffer]
       '(menu-item "PostScript Print Buffer (B+W)" ps-print-buffer
                   :enable (menu-bar-menu-frame-live-and-visible-p)
                   :help "Pretty-print current buffer in black and white to 
PostScript printer"))
-    (bindings--define-key menu [ps-print-region-faces]
+    (define-key menu [ps-print-region-faces]
       '(menu-item "PostScript Print Region"
                   ps-print-region-with-faces
                   :enable mark-active
                   :help "Pretty-print marked region to PostScript printer"))
-    (bindings--define-key menu [ps-print-buffer-faces]
+    (define-key menu [ps-print-buffer-faces]
       '(menu-item "PostScript Print Buffer"
                   ps-print-buffer-with-faces
                   :enable (menu-bar-menu-frame-live-and-visible-p)
                   :help "Pretty-print current buffer to PostScript printer"))
-    (bindings--define-key menu [print-region]
+    (define-key menu [print-region]
       '(menu-item "Print Region" print-region
                   :enable mark-active
                   :help "Print region between mark and current position"))
-    (bindings--define-key menu [print-buffer]
+    (define-key menu [print-buffer]
       '(menu-item "Print Buffer" print-buffer
                   :enable (menu-bar-menu-frame-live-and-visible-p)
                   :help "Print current buffer with page headings"))
@@ -91,37 +91,37 @@ in the tool bar will close the current window where 
possible."
   (let ((menu (make-sparse-keymap "File")))
 
     ;; The "File" menu items
-    (bindings--define-key menu [exit-emacs]
+    (define-key menu [exit-emacs]
       '(menu-item "Quit" save-buffers-kill-terminal
                   :help "Save unsaved buffers, then exit"))
 
-    (bindings--define-key menu [separator-exit]
+    (define-key menu [separator-exit]
       menu-bar-separator)
 
-    (bindings--define-key menu [print]
+    (define-key menu [print]
       `(menu-item "Print" ,menu-bar-print-menu))
 
-    (bindings--define-key menu [separator-print]
+    (define-key menu [separator-print]
       menu-bar-separator)
 
-    (bindings--define-key menu [close-tab]
+    (define-key menu [close-tab]
       '(menu-item "Close Tab" tab-close
                   :visible (fboundp 'tab-close)
                   :help "Close currently selected tab"))
-    (bindings--define-key menu [make-tab]
+    (define-key menu [make-tab]
       '(menu-item "New Tab" tab-new
                   :visible (fboundp 'tab-new)
                   :help "Open a new tab"))
 
-    (bindings--define-key menu [separator-tab]
+    (define-key menu [separator-tab]
       menu-bar-separator)
 
-    (bindings--define-key menu [undelete-frame-mode]
+    (define-key menu [undelete-frame-mode]
       '(menu-item "Allow Undeleting Frames" undelete-frame-mode
                   :help "Allow frames to be restored after deletion"
                   :button (:toggle . undelete-frame-mode)))
 
-    (bindings--define-key menu [undelete-last-deleted-frame]
+    (define-key menu [undelete-last-deleted-frame]
       '(menu-item "Undelete Frame" undelete-frame
                   :enable (and undelete-frame-mode
                                 (car undelete-frame--deleted-frames))
@@ -129,48 +129,48 @@ in the tool bar will close the current window where 
possible."
 
     ;; Don't use delete-frame as event name because that is a special
     ;; event.
-    (bindings--define-key menu [delete-this-frame]
+    (define-key menu [delete-this-frame]
       '(menu-item "Delete Frame" delete-frame
                   :visible (fboundp 'delete-frame)
                   :enable (delete-frame-enabled-p)
                   :help "Delete currently selected frame"))
-    (bindings--define-key menu [make-frame-on-monitor]
+    (define-key menu [make-frame-on-monitor]
       '(menu-item "New Frame on Monitor..." make-frame-on-monitor
                   :visible (fboundp 'make-frame-on-monitor)
                   :help "Open a new frame on another monitor"))
-    (bindings--define-key menu [make-frame-on-display]
+    (define-key menu [make-frame-on-display]
       '(menu-item "New Frame on Display Server..." make-frame-on-display
                   :visible (fboundp 'make-frame-on-display)
                   :help "Open a new frame on a display server"))
-    (bindings--define-key menu [make-frame]
+    (define-key menu [make-frame]
       '(menu-item "New Frame" make-frame-command
                   :visible (fboundp 'make-frame-command)
                   :help "Open a new frame"))
 
-    (bindings--define-key menu [separator-frame]
+    (define-key menu [separator-frame]
       menu-bar-separator)
 
-    (bindings--define-key menu [one-window]
+    (define-key menu [one-window]
       '(menu-item "Remove Other Windows" delete-other-windows
                   :enable (not (one-window-p t nil))
                   :help "Make selected window fill whole frame"))
 
-    (bindings--define-key menu [new-window-on-right]
+    (define-key menu [new-window-on-right]
       '(menu-item "New Window on Right" split-window-right
                   :enable (and (menu-bar-menu-frame-live-and-visible-p)
                                (menu-bar-non-minibuffer-window-p))
                   :help "Make new window on right of selected one"))
 
-    (bindings--define-key menu [new-window-below]
+    (define-key menu [new-window-below]
       '(menu-item "New Window Below" split-window-below
                   :enable (and (menu-bar-menu-frame-live-and-visible-p)
                                (menu-bar-non-minibuffer-window-p))
                   :help "Make new window below selected one"))
 
-    (bindings--define-key menu [separator-window]
+    (define-key menu [separator-window]
       menu-bar-separator)
 
-    (bindings--define-key menu [recover-session]
+    (define-key menu [recover-session]
       '(menu-item "Recover Crashed Session" recover-session
                   :enable
                   (and auto-save-list-file-prefix
@@ -185,7 +185,7 @@ in the tool bar will close the current window where 
possible."
                                   auto-save-list-file-prefix)))
                         t))
                   :help "Recover edits from a crashed session"))
-    (bindings--define-key menu [revert-buffer]
+    (define-key menu [revert-buffer]
       '(menu-item
         "Revert Buffer" revert-buffer
         :enable
@@ -203,47 +203,47 @@ in the tool bar will close the current window where 
possible."
                      (not (eq (not buffer-read-only)
                               (file-writable-p buffer-file-name))))))
         :help "Re-read current buffer from its file"))
-    (bindings--define-key menu [write-file]
+    (define-key menu [write-file]
       '(menu-item "Save As..." write-file
                   :enable (and (menu-bar-menu-frame-live-and-visible-p)
                                (menu-bar-non-minibuffer-window-p))
                   :help "Write current buffer to another file"))
-    (bindings--define-key menu [save-buffer]
+    (define-key menu [save-buffer]
       '(menu-item "Save" save-buffer
                   :enable (and (buffer-modified-p)
                                (buffer-file-name)
                                (menu-bar-non-minibuffer-window-p))
                   :help "Save current buffer to its file"))
 
-    (bindings--define-key menu [separator-save]
+    (define-key menu [separator-save]
       menu-bar-separator)
 
 
-    (bindings--define-key menu [kill-buffer]
+    (define-key menu [kill-buffer]
       '(menu-item "Close" kill-this-buffer
                   :enable (kill-this-buffer-enabled-p)
                   :help "Discard (kill) current buffer"))
-    (bindings--define-key menu [insert-file]
+    (define-key menu [insert-file]
       '(menu-item "Insert File..." insert-file
                   :enable (menu-bar-non-minibuffer-window-p)
                   :help "Insert another file into current buffer"))
-    (bindings--define-key menu [project-dired]
+    (define-key menu [project-dired]
       '(menu-item "Open Project Directory" project-dired
                   :enable (menu-bar-non-minibuffer-window-p)
                   :help "Read the root directory of the current project, to 
operate on its files"))
-    (bindings--define-key menu [dired]
+    (define-key menu [dired]
       '(menu-item "Open Directory..." dired
                   :enable (menu-bar-non-minibuffer-window-p)
                   :help "Read a directory, to operate on its files"))
-    (bindings--define-key menu [project-open-file]
+    (define-key menu [project-open-file]
       '(menu-item "Open File In Project..." project-find-file
                   :enable (menu-bar-non-minibuffer-window-p)
                   :help "Read existing file that belongs to current project 
into an Emacs buffer"))
-    (bindings--define-key menu [open-file]
+    (define-key menu [open-file]
       '(menu-item "Open File..." menu-find-file-existing
                   :enable (menu-bar-non-minibuffer-window-p)
                   :help "Read an existing file into an Emacs buffer"))
-    (bindings--define-key menu [new-file]
+    (define-key menu [new-file]
       '(menu-item "Visit New File..." find-file
                   :enable (menu-bar-non-minibuffer-window-p)
                   :help "Specify a new file's name, to edit the file"))
@@ -330,45 +330,45 @@ in the tool bar will close the current window where 
possible."
 ;; The Edit->Incremental Search menu
 (defvar menu-bar-i-search-menu
   (let ((menu (make-sparse-keymap "Incremental Search")))
-    (bindings--define-key menu [isearch-forward-symbol-at-point]
+    (define-key menu [isearch-forward-symbol-at-point]
       '(menu-item "Forward Symbol at Point..." isearch-forward-symbol-at-point
         :help "Search forward for a symbol found at point"))
-    (bindings--define-key menu [isearch-forward-symbol]
+    (define-key menu [isearch-forward-symbol]
       '(menu-item "Forward Symbol..." isearch-forward-symbol
         :help "Search forward for a symbol as you type it"))
-    (bindings--define-key menu [isearch-forward-word]
+    (define-key menu [isearch-forward-word]
       '(menu-item "Forward Word..." isearch-forward-word
         :help "Search forward for a word as you type it"))
-    (bindings--define-key menu [isearch-backward-regexp]
+    (define-key menu [isearch-backward-regexp]
       '(menu-item "Backward Regexp..." isearch-backward-regexp
         :help "Search backwards for a regular expression as you type it"))
-    (bindings--define-key menu [isearch-forward-regexp]
+    (define-key menu [isearch-forward-regexp]
       '(menu-item "Forward Regexp..." isearch-forward-regexp
         :help "Search forward for a regular expression as you type it"))
-    (bindings--define-key menu [isearch-backward]
+    (define-key menu [isearch-backward]
       '(menu-item "Backward String..." isearch-backward
         :help "Search backwards for a string as you type it"))
-    (bindings--define-key menu [isearch-forward]
+    (define-key menu [isearch-forward]
       '(menu-item "Forward String..." isearch-forward
         :help "Search forward for a string as you type it"))
     menu))
 
 (defvar menu-bar-search-menu
   (let ((menu (make-sparse-keymap "Search")))
-    (bindings--define-key menu [tags-continue]
+    (define-key menu [tags-continue]
       '(menu-item "Continue Tags Search" fileloop-continue
                   :enable (and (featurep 'fileloop)
                                (not (eq fileloop--operate-function 'ignore)))
                   :help "Continue last tags search operation"))
-    (bindings--define-key menu [tags-srch]
+    (define-key menu [tags-srch]
       '(menu-item "Search Tagged Files..." tags-search
                   :help "Search for a regexp in all tagged files"))
-    (bindings--define-key menu [project-search]
+    (define-key menu [project-search]
       '(menu-item "Search in Project Files..." project-find-regexp
         :help "Search for a regexp in files belonging to current project"))
-    (bindings--define-key menu [separator-tag-search] menu-bar-separator)
+    (define-key menu [separator-tag-search] menu-bar-separator)
 
-    (bindings--define-key menu [repeat-search-back]
+    (define-key menu [repeat-search-back]
       '(menu-item "Repeat Backwards"
                   nonincremental-repeat-search-backward
                   :enable (or (and (eq menu-bar-last-search-type 'string)
@@ -376,7 +376,7 @@ in the tool bar will close the current window where 
possible."
                               (and (eq menu-bar-last-search-type 'regexp)
                                    regexp-search-ring))
                   :help "Repeat last search backwards"))
-    (bindings--define-key menu [repeat-search-fwd]
+    (define-key menu [repeat-search-fwd]
       '(menu-item "Repeat Forward"
                   nonincremental-repeat-search-forward
                   :enable (or (and (eq menu-bar-last-search-type 'string)
@@ -384,23 +384,23 @@ in the tool bar will close the current window where 
possible."
                               (and (eq menu-bar-last-search-type 'regexp)
                                    regexp-search-ring))
                   :help "Repeat last search forward"))
-    (bindings--define-key menu [separator-repeat-search]
+    (define-key menu [separator-repeat-search]
       menu-bar-separator)
 
-    (bindings--define-key menu [re-search-backward]
+    (define-key menu [re-search-backward]
       '(menu-item "Regexp Backwards..."
                   nonincremental-re-search-backward
                   :help "Search backwards for a regular expression"))
-    (bindings--define-key menu [re-search-forward]
+    (define-key menu [re-search-forward]
       '(menu-item "Regexp Forward..."
                   nonincremental-re-search-forward
                   :help "Search forward for a regular expression"))
 
-    (bindings--define-key menu [search-backward]
+    (define-key menu [search-backward]
       '(menu-item "String Backwards..."
                   nonincremental-search-backward
                   :help "Search backwards for a string"))
-    (bindings--define-key menu [search-forward]
+    (define-key menu [search-forward]
       '(menu-item "String Forward..." nonincremental-search-forward
                   :help "Search forward for a string"))
     menu))
@@ -409,25 +409,25 @@ in the tool bar will close the current window where 
possible."
 
 (defvar menu-bar-replace-menu
   (let ((menu (make-sparse-keymap "Replace")))
-    (bindings--define-key menu [tags-repl-continue]
+    (define-key menu [tags-repl-continue]
       '(menu-item "Continue Replace" fileloop-continue
                   :enable (and (featurep 'fileloop)
                                (not (eq fileloop--operate-function 'ignore)))
                   :help "Continue last tags replace operation"))
-    (bindings--define-key menu [tags-repl]
+    (define-key menu [tags-repl]
       '(menu-item "Replace in Tagged Files..." tags-query-replace
         :help "Interactively replace a regexp in all tagged files"))
-    (bindings--define-key menu [project-replace]
+    (define-key menu [project-replace]
       '(menu-item "Replace in Project Files..." project-query-replace-regexp
         :help "Interactively replace a regexp in files belonging to current 
project"))
-    (bindings--define-key menu [separator-replace-tags]
+    (define-key menu [separator-replace-tags]
       menu-bar-separator)
 
-    (bindings--define-key menu [query-replace-regexp]
+    (define-key menu [query-replace-regexp]
       '(menu-item "Replace Regexp..." query-replace-regexp
                   :enable (not buffer-read-only)
                   :help "Replace regular expression interactively, ask about 
each occurrence"))
-    (bindings--define-key menu [query-replace]
+    (define-key menu [query-replace]
       '(menu-item "Replace String..." query-replace
         :enable (not buffer-read-only)
         :help "Replace string interactively, ask about each occurrence"))
@@ -437,49 +437,49 @@ in the tool bar will close the current window where 
possible."
 (defvar menu-bar-goto-menu
   (let ((menu (make-sparse-keymap "Go To")))
 
-    (bindings--define-key menu [set-tags-name]
+    (define-key menu [set-tags-name]
       '(menu-item "Set Tags File Name..." visit-tags-table
                   :visible (menu-bar-goto-uses-etags-p)
                   :help "Tell navigation commands which tag table file to 
use"))
 
-    (bindings--define-key menu [separator-tag-file]
+    (define-key menu [separator-tag-file]
       '(menu-item "--" nil :visible (menu-bar-goto-uses-etags-p)))
 
-    (bindings--define-key menu [xref-forward]
+    (define-key menu [xref-forward]
       '(menu-item "Forward" xref-go-forward
                   :visible (and (featurep 'xref)
                                 (not (xref-forward-history-empty-p)))
                   :help "Forward to the position gone Back from"))
 
-    (bindings--define-key menu [xref-pop]
+    (define-key menu [xref-pop]
       '(menu-item "Back" xref-go-back
                   :visible (and (featurep 'xref)
                                 (not (xref-marker-stack-empty-p)))
                   :help "Back to the position of the last search"))
 
-    (bindings--define-key menu [xref-apropos]
+    (define-key menu [xref-apropos]
       '(menu-item "Find Apropos..." xref-find-apropos
                   :help "Find function/variables whose names match regexp"))
 
-    (bindings--define-key menu [xref-find-otherw]
+    (define-key menu [xref-find-otherw]
       '(menu-item "Find Definition in Other Window..."
                   xref-find-definitions-other-window
                   :help "Find function/variable definition in another window"))
-    (bindings--define-key menu [xref-find-def]
+    (define-key menu [xref-find-def]
       '(menu-item "Find Definition..." xref-find-definitions
                   :help "Find definition of function or variable"))
 
-    (bindings--define-key menu [separator-xref]
+    (define-key menu [separator-xref]
       menu-bar-separator)
 
-    (bindings--define-key menu [end-of-buf]
+    (define-key menu [end-of-buf]
       '(menu-item "Goto End of Buffer" end-of-buffer))
-    (bindings--define-key menu [beg-of-buf]
+    (define-key menu [beg-of-buf]
       '(menu-item "Goto Beginning of Buffer" beginning-of-buffer))
-    (bindings--define-key menu [go-to-pos]
+    (define-key menu [go-to-pos]
       '(menu-item "Goto Buffer Position..." goto-char
                   :help "Read a number N and go to buffer position N"))
-    (bindings--define-key menu [go-to-line]
+    (define-key menu [go-to-line]
       '(menu-item "Goto Line..." goto-line
                   :help "Read a line number and go to that line"))
     menu))
@@ -494,47 +494,47 @@ in the tool bar will close the current window where 
possible."
 (defvar menu-bar-edit-menu
   (let ((menu (make-sparse-keymap "Edit")))
 
-    (bindings--define-key menu [execute-extended-command]
+    (define-key menu [execute-extended-command]
       '(menu-item "Execute Command" execute-extended-command
                   :enable t
                   :help "Read a command name, its arguments, then call it."))
 
     ;; ns-win.el said: Add spell for platform consistency.
     (if (featurep 'ns)
-        (bindings--define-key menu [spell]
+        (define-key menu [spell]
           '(menu-item "Spell" ispell-menu-map)))
 
-    (bindings--define-key menu [fill]
+    (define-key menu [fill]
       '(menu-item "Fill" fill-region
                   :enable (and mark-active (not buffer-read-only))
                   :help
                   "Fill text in region to fit between left and right margin"))
 
-    (bindings--define-key menu [separator-bookmark]
+    (define-key menu [separator-bookmark]
       menu-bar-separator)
 
-    (bindings--define-key menu [bookmark]
+    (define-key menu [bookmark]
       '(menu-item "Bookmarks" menu-bar-bookmark-map))
 
-    (bindings--define-key menu [goto]
+    (define-key menu [goto]
       `(menu-item "Go To" ,menu-bar-goto-menu))
 
-    (bindings--define-key menu [replace]
+    (define-key menu [replace]
       `(menu-item "Replace" ,menu-bar-replace-menu))
 
-    (bindings--define-key menu [i-search]
+    (define-key menu [i-search]
       `(menu-item "Incremental Search" ,menu-bar-i-search-menu))
 
-    (bindings--define-key menu [search]
+    (define-key menu [search]
       `(menu-item "Search" ,menu-bar-search-menu))
 
-    (bindings--define-key menu [separator-search]
+    (define-key menu [separator-search]
       menu-bar-separator)
 
-    (bindings--define-key menu [mark-whole-buffer]
+    (define-key menu [mark-whole-buffer]
       '(menu-item "Select All" mark-whole-buffer
                   :help "Mark the whole buffer for a subsequent cut/copy"))
-    (bindings--define-key menu [clear]
+    (define-key menu [clear]
       '(menu-item "Clear" delete-active-region
                   :enable (and mark-active
                                (not buffer-read-only))
@@ -542,7 +542,7 @@ in the tool bar will close the current window where 
possible."
                   "Delete the text in region between mark and current 
position"))
 
 
-    (bindings--define-key menu (if (featurep 'ns) [select-paste]
+    (define-key menu (if (featurep 'ns) [select-paste]
                        [paste-from-menu])
       ;; ns-win.el said: Change text to be more consistent with
       ;; surrounding menu items `paste', etc."
@@ -550,7 +550,7 @@ in the tool bar will close the current window where 
possible."
                   yank-menu
                   :enable (and (cdr yank-menu) (not buffer-read-only))
                   :help "Choose a string from the kill ring and paste it"))
-    (bindings--define-key menu [paste]
+    (define-key menu [paste]
       `(menu-item "Paste" yank
                   :enable (funcall
                            ',(lambda ()
@@ -565,7 +565,7 @@ in the tool bar will close the current window where 
possible."
                            (if cua-mode
                                "\\[cua-paste]"
                              "\\[yank]"))))
-    (bindings--define-key menu [copy]
+    (define-key menu [copy]
       ;; ns-win.el said: Substitute a Copy function that works better
       ;; under X (for GNUstep).
       `(menu-item "Copy" ,(if (featurep 'ns)
@@ -581,7 +581,7 @@ in the tool bar will close the current window where 
possible."
                              "\\[cua-copy-handler]")
                             (t
                              "\\[kill-ring-save]")))))
-    (bindings--define-key menu [cut]
+    (define-key menu [cut]
       `(menu-item "Cut" kill-region
                   :enable (and mark-active (not buffer-read-only))
                   :help
@@ -592,15 +592,15 @@ in the tool bar will close the current window where 
possible."
                              "\\[kill-region]"))))
     ;; ns-win.el said: Separate undo from cut/paste section.
     (if (featurep 'ns)
-        (bindings--define-key menu [separator-undo] menu-bar-separator))
+        (define-key menu [separator-undo] menu-bar-separator))
 
-    (bindings--define-key menu [undo-redo]
+    (define-key menu [undo-redo]
       '(menu-item "Redo" undo-redo
                   :enable (and (not buffer-read-only)
                            (undo--last-change-was-undo-p buffer-undo-list))
                   :help "Redo last undone edits"))
 
-    (bindings--define-key menu [undo]
+    (define-key menu [undo]
       '(menu-item "Undo" undo
                   :enable (and (not buffer-read-only)
                                (not (eq t buffer-undo-list))
@@ -667,43 +667,43 @@ Do the same for the keys of the same name."
 (defvar menu-bar-custom-menu
   (let ((menu (make-sparse-keymap "Customize")))
 
-    (bindings--define-key menu [customize-apropos-faces]
+    (define-key menu [customize-apropos-faces]
       '(menu-item "Faces Matching..." customize-apropos-faces
                   :help "Browse faces matching a regexp or word list"))
-    (bindings--define-key menu [customize-apropos-options]
+    (define-key menu [customize-apropos-options]
       '(menu-item "Options Matching..." customize-apropos-options
                   :help "Browse options matching a regexp or word list"))
-    (bindings--define-key menu [customize-apropos]
+    (define-key menu [customize-apropos]
       '(menu-item "All Settings Matching..." customize-apropos
                   :help "Browse customizable settings matching a regexp or 
word list"))
-    (bindings--define-key menu [separator-1]
+    (define-key menu [separator-1]
       menu-bar-separator)
-    (bindings--define-key menu [customize-group]
+    (define-key menu [customize-group]
       '(menu-item "Specific Group..." customize-group
                   :help "Customize settings of specific group"))
-    (bindings--define-key menu [customize-face]
+    (define-key menu [customize-face]
       '(menu-item "Specific Face..." customize-face
                   :help "Customize attributes of specific face"))
-    (bindings--define-key menu [customize-option]
+    (define-key menu [customize-option]
       '(menu-item "Specific Option..." customize-option
                   :help "Customize value of specific option"))
-    (bindings--define-key menu [separator-2]
+    (define-key menu [separator-2]
       menu-bar-separator)
-    (bindings--define-key menu [customize-changed]
+    (define-key menu [customize-changed]
       '(menu-item "New Options..." customize-changed
                   :help "Options and faces added or changed in recent Emacs 
versions"))
-    (bindings--define-key menu [customize-saved]
+    (define-key menu [customize-saved]
       '(menu-item "Saved Options" customize-saved
                   :help "Customize previously saved options"))
-    (bindings--define-key menu [separator-3]
+    (define-key menu [separator-3]
       menu-bar-separator)
-    (bindings--define-key menu [customize-browse]
+    (define-key menu [customize-browse]
       '(menu-item "Browse Customization Groups" customize-browse
                   :help "Tree-like browser of all the groups of customizable 
options"))
-    (bindings--define-key menu [customize]
+    (define-key menu [customize]
       '(menu-item "Top-level Emacs Customization Group" customize
                   :help "Top-level groups of customizable options, and their 
descriptions"))
-    (bindings--define-key menu [customize-themes]
+    (define-key menu [customize-themes]
       '(menu-item "Custom Themes" customize-themes
                   :help "Choose a pre-defined customization theme"))
     menu))
@@ -883,12 +883,12 @@ The selected font will be the default on both the 
existing and future frames."
 ;; dividers are displayed by manipulating frame parameters directly.
 (defvar menu-bar-showhide-window-divider-menu
   (let ((menu (make-sparse-keymap "Window Divider")))
-    (bindings--define-key menu [customize]
+    (define-key menu [customize]
       '(menu-item "Customize" menu-bar-window-divider-customize
                   :help "Customize window dividers"
                   :visible (memq (window-system) '(x w32))))
 
-    (bindings--define-key menu [bottom-and-right]
+    (define-key menu [bottom-and-right]
       '(menu-item "Bottom and Right"
                   menu-bar-bottom-and-right-window-divider
                   :help "Display window divider on the bottom and right of 
each window"
@@ -900,7 +900,7 @@ The selected font will be the default on both the existing 
and future frames."
                                  (window-divider-width-valid-p
                                   (cdr (assq 'right-divider-width
                                              (frame-parameters))))))))
-    (bindings--define-key menu [right-only]
+    (define-key menu [right-only]
       '(menu-item "Right Only"
                   menu-bar-right-window-divider
                   :help "Display window divider on the right of each window 
only"
@@ -912,7 +912,7 @@ The selected font will be the default on both the existing 
and future frames."
                                  (window-divider-width-valid-p
                                   (cdr (assq 'right-divider-width
                                                     (frame-parameters))))))))
-    (bindings--define-key menu [bottom-only]
+    (define-key menu [bottom-only]
       '(menu-item "Bottom Only"
                   menu-bar-bottom-window-divider
                   :help "Display window divider on the bottom of each window 
only"
@@ -924,7 +924,7 @@ The selected font will be the default on both the existing 
and future frames."
                                  (not (window-divider-width-valid-p
                                        (cdr (assq 'right-divider-width
                                                   (frame-parameters)))))))))
-    (bindings--define-key menu [no-divider]
+    (define-key menu [no-divider]
       '(menu-item "None"
                   menu-bar-no-window-divider
                   :help "Do not display window dividers"
@@ -973,7 +973,7 @@ The selected font will be the default on both the existing 
and future frames."
 (defvar menu-bar-showhide-fringe-ind-menu
   (let ((menu (make-sparse-keymap "Buffer boundaries")))
 
-    (bindings--define-key menu [customize]
+    (define-key menu [customize]
       '(menu-item "Other (Customize)"
                   menu-bar-showhide-fringe-ind-customize
                   :help "Additional choices available through Custom buffer"
@@ -983,7 +983,7 @@ The selected font will be the default on both the existing 
and future frames."
                                                    ((top . left) (bottom . 
right))
                                                    ((t . right) (top . 
left))))))))
 
-    (bindings--define-key menu [mixed]
+    (define-key menu [mixed]
       '(menu-item "Opposite, Arrows Right" menu-bar-showhide-fringe-ind-mixed
                   :help
                   "Show top/bottom indicators in opposite fringes, arrows in 
right"
@@ -991,26 +991,26 @@ The selected font will be the default on both the 
existing and future frames."
                   :button (:radio . (equal indicate-buffer-boundaries
                                            '((t . right) (top . left))))))
 
-    (bindings--define-key menu [box]
+    (define-key menu [box]
       '(menu-item "Opposite, No Arrows" menu-bar-showhide-fringe-ind-box
                   :help "Show top/bottom indicators in opposite fringes, no 
arrows"
                   :visible (display-graphic-p)
                   :button (:radio . (equal indicate-buffer-boundaries
                                            '((top . left) (bottom . right))))))
 
-    (bindings--define-key menu [right]
+    (define-key menu [right]
       '(menu-item "In Right Fringe" menu-bar-showhide-fringe-ind-right
                   :help "Show buffer boundaries and arrows in right fringe"
                   :visible (display-graphic-p)
                   :button (:radio . (eq indicate-buffer-boundaries 'right))))
 
-    (bindings--define-key menu [left]
+    (define-key menu [left]
       '(menu-item "In Left Fringe" menu-bar-showhide-fringe-ind-left
                   :help "Show buffer boundaries and arrows in left fringe"
                   :visible (display-graphic-p)
                   :button (:radio . (eq indicate-buffer-boundaries 'left))))
 
-    (bindings--define-key menu [none]
+    (define-key menu [none]
       '(menu-item "No Indicators" menu-bar-showhide-fringe-ind-none
                   :help "Hide all buffer boundary indicators and arrows"
                   :visible (display-graphic-p)
@@ -1048,42 +1048,42 @@ The selected font will be the default on both the 
existing and future frames."
 (defvar menu-bar-showhide-fringe-menu
   (let ((menu (make-sparse-keymap "Fringe")))
 
-    (bindings--define-key menu [showhide-fringe-ind]
+    (define-key menu [showhide-fringe-ind]
       `(menu-item "Buffer Boundaries" ,menu-bar-showhide-fringe-ind-menu
                   :visible (display-graphic-p)
                   :help "Indicate buffer boundaries in fringe"))
 
-    (bindings--define-key menu [indicate-empty-lines]
+    (define-key menu [indicate-empty-lines]
       (menu-bar-make-toggle-command
        toggle-indicate-empty-lines indicate-empty-lines
        "Empty Line Indicators"
        "Indicating of empty lines %s"
        "Indicate trailing empty lines in fringe, globally"))
 
-    (bindings--define-key menu [customize]
+    (define-key menu [customize]
       '(menu-item "Customize Fringe" menu-bar-showhide-fringe-menu-customize
                   :help "Detailed customization of fringe"
                   :visible (display-graphic-p)))
 
-    (bindings--define-key menu [default]
+    (define-key menu [default]
       '(menu-item "Default" menu-bar-showhide-fringe-menu-customize-reset
                   :help "Default width fringe on both left and right side"
                   :visible (display-graphic-p)
                   :button (:radio . (eq fringe-mode nil))))
 
-    (bindings--define-key menu [right]
+    (define-key menu [right]
       '(menu-item "On the Right" menu-bar-showhide-fringe-menu-customize-right
                   :help "Fringe only on the right side"
                   :visible (display-graphic-p)
                   :button (:radio . (equal fringe-mode '(0 . nil)))))
 
-    (bindings--define-key menu [left]
+    (define-key menu [left]
       '(menu-item "On the Left" menu-bar-showhide-fringe-menu-customize-left
                   :help "Fringe only on the left side"
                   :visible (display-graphic-p)
                   :button (:radio . (equal fringe-mode '(nil . 0)))))
 
-    (bindings--define-key menu [none]
+    (define-key menu [none]
       '(menu-item "None" menu-bar-showhide-fringe-menu-customize-disable
                   :help "Turn off fringe"
                   :visible (display-graphic-p)
@@ -1108,15 +1108,15 @@ The selected font will be the default on both the 
existing and future frames."
 (defvar menu-bar-showhide-scroll-bar-menu
   (let ((menu (make-sparse-keymap "Scroll Bar")))
 
-    (bindings--define-key menu [horizontal]
+    (define-key menu [horizontal]
       (menu-bar-make-mm-toggle horizontal-scroll-bar-mode
                                "Horizontal"
                                "Horizontal scroll bar"))
 
-    (bindings--define-key menu [scrollbar-separator]
+    (define-key menu [scrollbar-separator]
       menu-bar-separator)
 
-    (bindings--define-key menu [right]
+    (define-key menu [right]
       '(menu-item "On the Right" menu-bar-right-scroll-bar
                   :help "Scroll bar on the right side"
                   :visible (display-graphic-p)
@@ -1125,7 +1125,7 @@ The selected font will be the default on both the 
existing and future frames."
                                               nil 'vertical-scroll-bars)
                                              'right)))))
 
-    (bindings--define-key menu [left]
+    (define-key menu [left]
       '(menu-item "On the Left" menu-bar-left-scroll-bar
                   :help "Scroll bar on the left side"
                   :visible (display-graphic-p)
@@ -1134,7 +1134,7 @@ The selected font will be the default on both the 
existing and future frames."
                                               nil 'vertical-scroll-bars)
                                              'left)))))
 
-    (bindings--define-key menu [none]
+    (define-key menu [none]
       '(menu-item "No Vertical Scroll Bar" menu-bar-no-scroll-bar
                   :help "Turn off vertical scroll bar"
                   :visible (display-graphic-p)
@@ -1180,7 +1180,7 @@ The selected font will be the default on both the 
existing and future frames."
   (defvar menu-bar-showhide-tool-bar-menu
     (let ((menu (make-sparse-keymap "Tool Bar")))
 
-      (bindings--define-key menu [showhide-tool-bar-left]
+      (define-key menu [showhide-tool-bar-left]
         '(menu-item "On the Left"
                     menu-bar-showhide-tool-bar-menu-customize-enable-left
                     :help "Tool bar at the left side"
@@ -1192,7 +1192,7 @@ The selected font will be the default on both the 
existing and future frames."
                                         'tool-bar-position)
                                        'left)))))
 
-      (bindings--define-key menu [showhide-tool-bar-right]
+      (define-key menu [showhide-tool-bar-right]
         '(menu-item "On the Right"
                     menu-bar-showhide-tool-bar-menu-customize-enable-right
                     :help "Tool bar at the right side"
@@ -1204,7 +1204,7 @@ The selected font will be the default on both the 
existing and future frames."
                                         'tool-bar-position)
                                        'right)))))
 
-      (bindings--define-key menu [showhide-tool-bar-bottom]
+      (define-key menu [showhide-tool-bar-bottom]
         '(menu-item "On the Bottom"
                     menu-bar-showhide-tool-bar-menu-customize-enable-bottom
                     :help "Tool bar at the bottom"
@@ -1216,7 +1216,7 @@ The selected font will be the default on both the 
existing and future frames."
                                         'tool-bar-position)
                                        'bottom)))))
 
-      (bindings--define-key menu [showhide-tool-bar-top]
+      (define-key menu [showhide-tool-bar-top]
         '(menu-item "On the Top"
                     menu-bar-showhide-tool-bar-menu-customize-enable-top
                     :help "Tool bar at the top"
@@ -1228,7 +1228,7 @@ The selected font will be the default on both the 
existing and future frames."
                                         'tool-bar-position)
                                        'top)))))
 
-      (bindings--define-key menu [showhide-tool-bar-none]
+      (define-key menu [showhide-tool-bar-none]
         '(menu-item "None"
                     menu-bar-showhide-tool-bar-menu-customize-disable
                     :help "Turn tool bar off"
@@ -1271,35 +1271,35 @@ The selected font will be the default on both the 
existing and future frames."
 (defvar menu-bar-showhide-line-numbers-menu
   (let ((menu (make-sparse-keymap "Line Numbers")))
 
-    (bindings--define-key menu [visual]
+    (define-key menu [visual]
       '(menu-item "Visual Line Numbers"
                   menu-bar--display-line-numbers-mode-visual
                   :help "Enable visual line numbers"
                   :button (:radio . (eq display-line-numbers 'visual))
                   :visible (menu-bar-menu-frame-live-and-visible-p)))
 
-    (bindings--define-key menu [relative]
+    (define-key menu [relative]
       '(menu-item "Relative Line Numbers"
                   menu-bar--display-line-numbers-mode-relative
                   :help "Enable relative line numbers"
                   :button (:radio . (eq display-line-numbers 'relative))
                   :visible (menu-bar-menu-frame-live-and-visible-p)))
 
-    (bindings--define-key menu [absolute]
+    (define-key menu [absolute]
       '(menu-item "Absolute Line Numbers"
                   menu-bar--display-line-numbers-mode-absolute
                   :help "Enable absolute line numbers"
                   :button (:radio . (eq display-line-numbers t))
                   :visible (menu-bar-menu-frame-live-and-visible-p)))
 
-    (bindings--define-key menu [none]
+    (define-key menu [none]
       '(menu-item "No Line Numbers"
                   menu-bar--display-line-numbers-mode-none
                   :help "Disable line numbers"
                   :button (:radio . (null display-line-numbers))
                   :visible (menu-bar-menu-frame-live-and-visible-p)))
 
-    (bindings--define-key menu [global]
+    (define-key menu [global]
       (menu-bar-make-mm-toggle global-display-line-numbers-mode
                                "Global Line Numbers Mode"
                                "Set line numbers globally"))
@@ -1308,43 +1308,43 @@ The selected font will be the default on both the 
existing and future frames."
 (defvar menu-bar-showhide-menu
   (let ((menu (make-sparse-keymap "Show/Hide")))
 
-    (bindings--define-key menu [display-line-numbers]
+    (define-key menu [display-line-numbers]
       `(menu-item "Line Numbers for All Lines"
                  ,menu-bar-showhide-line-numbers-menu))
 
-    (bindings--define-key menu [column-number-mode]
+    (define-key menu [column-number-mode]
       (menu-bar-make-mm-toggle column-number-mode
                                "Column Numbers in Mode Line"
                                "Show the current column number in the mode 
line"))
 
-    (bindings--define-key menu [line-number-mode]
+    (define-key menu [line-number-mode]
       (menu-bar-make-mm-toggle line-number-mode
                                "Line Numbers in Mode Line"
                                "Show the current line number in the mode 
line"))
 
-    (bindings--define-key menu [size-indication-mode]
+    (define-key menu [size-indication-mode]
       (menu-bar-make-mm-toggle size-indication-mode
                                "Size Indication"
                                "Show the size of the buffer in the mode line"))
 
-    (bindings--define-key menu [linecolumn-separator]
+    (define-key menu [linecolumn-separator]
       menu-bar-separator)
 
-    (bindings--define-key menu [showhide-battery]
+    (define-key menu [showhide-battery]
       (menu-bar-make-mm-toggle display-battery-mode
                                "Battery Status"
                                "Display battery status information in mode 
line"))
 
-    (bindings--define-key menu [showhide-date-time]
+    (define-key menu [showhide-date-time]
       (menu-bar-make-mm-toggle display-time-mode
                                "Time, Load and Mail"
                                "Display time, system load averages and \
 mail status in mode line"))
 
-    (bindings--define-key menu [datetime-separator]
+    (define-key menu [datetime-separator]
       menu-bar-separator)
 
-    (bindings--define-key menu [showhide-speedbar]
+    (define-key menu [showhide-speedbar]
       '(menu-item "Speedbar" speedbar-frame-mode
                   :help "Display a Speedbar quick-navigation frame"
                   :button (:toggle
@@ -1353,7 +1353,7 @@ mail status in mode line"))
                                   (frame-visible-p
                                    (symbol-value 'speedbar-frame))))))
 
-    (bindings--define-key menu [showhide-outline-minor-mode]
+    (define-key menu [showhide-outline-minor-mode]
       '(menu-item "Outlines" outline-minor-mode
                   :help "Turn outline-minor-mode on/off"
                   :visible (seq-some #'local-variable-p
@@ -1362,36 +1362,36 @@ mail status in mode line"))
                   :button (:toggle . (and (boundp 'outline-minor-mode)
                                           outline-minor-mode))))
 
-    (bindings--define-key menu [showhide-tab-line-mode]
+    (define-key menu [showhide-tab-line-mode]
       '(menu-item "Window Tab Line" global-tab-line-mode
                   :help "Turn window-local tab-lines on/off"
                   :visible (fboundp 'global-tab-line-mode)
                   :button (:toggle . global-tab-line-mode)))
 
-    (bindings--define-key menu [showhide-window-divider]
+    (define-key menu [showhide-window-divider]
       `(menu-item "Window Divider" ,menu-bar-showhide-window-divider-menu
                   :visible (memq (window-system) '(x w32))))
 
-    (bindings--define-key menu [showhide-fringe]
+    (define-key menu [showhide-fringe]
       `(menu-item "Fringe" ,menu-bar-showhide-fringe-menu
                   :visible (display-graphic-p)))
 
-    (bindings--define-key menu [showhide-scroll-bar]
+    (define-key menu [showhide-scroll-bar]
       `(menu-item "Scroll Bar" ,menu-bar-showhide-scroll-bar-menu
                   :visible (display-graphic-p)))
 
-    (bindings--define-key menu [showhide-tooltip-mode]
+    (define-key menu [showhide-tooltip-mode]
       '(menu-item "Tooltips" tooltip-mode
                   :help "Turn tooltips on/off"
                   :visible (and (display-graphic-p) (fboundp 'x-show-tip))
                   :button (:toggle . tooltip-mode)))
 
-    (bindings--define-key menu [showhide-context-menu]
+    (define-key menu [showhide-context-menu]
       '(menu-item "Context Menus" context-menu-mode
                   :help "Turn mouse-3 context menus on/off"
                   :button (:toggle . context-menu-mode)))
 
-    (bindings--define-key menu [menu-bar-mode]
+    (define-key menu [menu-bar-mode]
       '(menu-item "Menu Bar" toggle-menu-bar-mode-from-frame
                   :help "Turn menu bar on/off"
                   :button
@@ -1399,7 +1399,7 @@ mail status in mode line"))
                               (frame-parameter (menu-bar-frame-for-menubar)
                                                'menu-bar-lines)))))
 
-    (bindings--define-key menu [showhide-tab-bar]
+    (define-key menu [showhide-tab-bar]
       '(menu-item "Tab Bar" toggle-tab-bar-mode-from-frame
                   :help "Turn tab bar on/off"
                   :button
@@ -1409,11 +1409,11 @@ mail status in mode line"))
 
     (if (and (boundp 'menu-bar-showhide-tool-bar-menu)
              (keymapp menu-bar-showhide-tool-bar-menu))
-        (bindings--define-key menu [showhide-tool-bar]
+        (define-key menu [showhide-tool-bar]
           `(menu-item "Tool Bar" ,menu-bar-showhide-tool-bar-menu
                       :visible (display-graphic-p)))
       ;; else not tool bar that can move.
-      (bindings--define-key menu [showhide-tool-bar]
+      (define-key menu [showhide-tool-bar]
         '(menu-item "Tool Bar" toggle-tool-bar-mode-from-frame
                     :help "Turn tool bar on/off"
                     :visible (display-graphic-p)
@@ -1447,7 +1447,7 @@ mail status in mode line"))
 (defvar menu-bar-line-wrapping-menu
   (let ((menu (make-sparse-keymap "Line Wrapping")))
 
-    (bindings--define-key menu [visual-wrap]
+    (define-key menu [visual-wrap]
       '(menu-item "Visual Wrap Prefix mode" visual-wrap-prefix-mode
                   :help "Display continuation lines with visual 
context-dependent prefix"
                   :visible (menu-bar-menu-frame-live-and-visible-p)
@@ -1455,7 +1455,7 @@ mail status in mode line"))
                            . (bound-and-true-p visual-wrap-prefix-mode))
                   :enable t))
 
-    (bindings--define-key menu [word-wrap]
+    (define-key menu [word-wrap]
       '(menu-item "Word Wrap (Visual Line mode)"
                   menu-bar--visual-line-mode-enable
                   :help "Wrap long lines at word boundaries"
@@ -1465,7 +1465,7 @@ mail status in mode line"))
                                   word-wrap))
                   :visible (menu-bar-menu-frame-live-and-visible-p)))
 
-    (bindings--define-key menu [truncate]
+    (define-key menu [truncate]
       '(menu-item "Truncate Long Lines"
                   menu-bar--toggle-truncate-long-lines
                   :help "Truncate long lines at window edge"
@@ -1474,7 +1474,7 @@ mail status in mode line"))
                   :visible (menu-bar-menu-frame-live-and-visible-p)
                   :enable (not (truncated-partial-width-window-p))))
 
-    (bindings--define-key menu [window-wrap]
+    (define-key menu [window-wrap]
       '(menu-item "Wrap at Window Edge"
                   menu-bar--wrap-long-lines-window-edge
                   :help "Wrap long lines at window edge"
@@ -1492,7 +1492,7 @@ mail status in mode line"))
     (dolist (x '((char-fold-to-regexp "Fold Characters" "Character folding")
                  (isearch-symbol-regexp "Whole Symbols" "Whole symbol")
                  (word-search-regexp "Whole Words" "Whole word")))
-      (bindings--define-key menu (vector (nth 0 x))
+      (define-key menu (vector (nth 0 x))
         `(menu-item ,(nth 1 x)
                     ,(lambda ()
                        (interactive)
@@ -1501,7 +1501,7 @@ mail status in mode line"))
                     :help ,(format "Enable %s search" (downcase (nth 2 x)))
                     :button (:radio . (eq search-default-mode #',(nth 0 x))))))
 
-    (bindings--define-key menu [regexp-search]
+    (define-key menu [regexp-search]
       `(menu-item "Regular Expression"
                   ,(lambda ()
                      (interactive)
@@ -1510,7 +1510,7 @@ mail status in mode line"))
                   :help "Enable regular-expression search"
                   :button (:radio . (eq search-default-mode t))))
 
-    (bindings--define-key menu [regular-search]
+    (define-key menu [regular-search]
       `(menu-item "Literal Search"
                   ,(lambda ()
                      (interactive)
@@ -1521,9 +1521,9 @@ mail status in mode line"))
                   :help "Disable special search modes"
                   :button (:radio . (not search-default-mode))))
 
-    (bindings--define-key menu [custom-separator]
+    (define-key menu [custom-separator]
       menu-bar-separator)
-    (bindings--define-key menu [case-fold-search]
+    (define-key menu [case-fold-search]
       (menu-bar-make-toggle-command
        toggle-case-fold-search case-fold-search
        "Ignore Case"
@@ -1534,74 +1534,74 @@ mail status in mode line"))
 
 (defvar menu-bar-options-menu
   (let ((menu (make-sparse-keymap "Options")))
-    (bindings--define-key menu [customize]
+    (define-key menu [customize]
       `(menu-item "Customize Emacs" ,menu-bar-custom-menu))
 
-    (bindings--define-key menu [package]
+    (define-key menu [package]
       '(menu-item "Manage Emacs Packages" package-list-packages
         :help "Install or uninstall additional Emacs packages"))
 
-    (bindings--define-key menu [save]
+    (define-key menu [save]
       '(menu-item "Save Options" menu-bar-options-save
                   :help "Save options set from the menu above"))
 
-    (bindings--define-key menu [custom-separator]
+    (define-key menu [custom-separator]
       menu-bar-separator)
 
-    (bindings--define-key menu [menu-set-font]
+    (define-key menu [menu-set-font]
       '(menu-item "Set Default Font..." menu-set-font
                   :visible (display-multi-font-p)
                   :help "Select a default font"))
 
     (if (featurep 'system-font-setting)
-        (bindings--define-key menu [menu-system-font]
+        (define-key menu [menu-system-font]
           (menu-bar-make-toggle-command
            toggle-use-system-font font-use-system-font
            "Use System Font"
            "Use system font: %s"
            "Use the monospaced font defined by the system")))
 
-    (bindings--define-key menu [showhide]
+    (define-key menu [showhide]
       `(menu-item "Show/Hide" ,menu-bar-showhide-menu))
 
-    (bindings--define-key menu [showhide-separator]
+    (define-key menu [showhide-separator]
       menu-bar-separator)
 
-    (bindings--define-key menu [mule]
+    (define-key menu [mule]
       ;; It is better not to use backquote here,
       ;; because that makes a bootstrapping problem
       ;; if you need to recompile all the Lisp files using interpreted code.
       `(menu-item "Multilingual Environment" ,mule-menu-keymap))
     ;;(setq menu-bar-final-items (cons 'mule menu-bar-final-items))
-    ;;(bindings--define-key menu [preferences]
+    ;;(define-key menu [preferences]
     ;;  `(menu-item "Preferences" ,menu-bar-preferences-menu
     ;;       :help "Toggle important global options"))
 
-    (bindings--define-key menu [mule-separator]
+    (define-key menu [mule-separator]
       menu-bar-separator)
 
-    (bindings--define-key menu [debug-on-quit]
+    (define-key menu [debug-on-quit]
       (menu-bar-make-toggle-command
        toggle-debug-on-quit debug-on-quit
        "Enter Debugger on Quit/C-g" "Debug on Quit %s"
        "Enter Lisp debugger when C-g is pressed"))
-    (bindings--define-key menu [debug-on-error]
+    (define-key menu [debug-on-error]
       (menu-bar-make-toggle-command
        toggle-debug-on-error debug-on-error
        "Enter Debugger on Error" "Debug on Error %s"
        "Enter Lisp debugger when an error is signaled"))
-    (bindings--define-key menu [debugger-separator]
+    (define-key menu [debugger-separator]
       menu-bar-separator)
 
-    (bindings--define-key menu [blink-cursor-mode]
+    (define-key menu [blink-cursor-mode]
       (menu-bar-make-mm-toggle
        blink-cursor-mode
        "Blink Cursor"
        "Whether the cursor blinks (Blink Cursor mode)"))
-    (bindings--define-key menu [cursor-separator]
+    (define-key menu [cursor-separator]
       menu-bar-separator)
 
-    (bindings--define-key menu [save-desktop]
+    (define-key menu [save-desktop]
       (menu-bar-make-toggle-command
        toggle-save-desktop-globally desktop-save-mode
        "Save State between Sessions"
@@ -1614,7 +1614,7 @@ mail status in mode line"))
          (set-default
          'desktop-save-mode (not (symbol-value 'desktop-save-mode))))))
 
-    (bindings--define-key menu [save-place]
+    (define-key menu [save-place]
       (menu-bar-make-toggle-command
        toggle-save-place-globally save-place-mode
        "Save Place in Files between Sessions"
@@ -1627,7 +1627,7 @@ mail status in mode line"))
          (set-default
          'save-place-mode (not (symbol-value 'save-place-mode))))))
 
-    (bindings--define-key menu [uniquify]
+    (define-key menu [uniquify]
       (menu-bar-make-toggle-command
        toggle-uniquify-buffer-names uniquify-buffer-name-style
        "Use Directory Names in Buffer Names"
@@ -1637,9 +1637,9 @@ mail status in mode line"))
             (if (not uniquify-buffer-name-style)
                 'post-forward-angle-brackets))))
 
-    (bindings--define-key menu [edit-options-separator]
+    (define-key menu [edit-options-separator]
       menu-bar-separator)
-    (bindings--define-key menu [cua-mode]
+    (define-key menu [cua-mode]
       (menu-bar-make-mm-toggle
        cua-mode
        "Cut/Paste with C-x/C-c/C-v (CUA Mode)"
@@ -1647,7 +1647,7 @@ mail status in mode line"))
        (:visible (or (not (boundp 'cua-enable-cua-keys))
                     cua-enable-cua-keys))))
 
-    (bindings--define-key menu [cua-emulation-mode]
+    (define-key menu [cua-emulation-mode]
       (menu-bar-make-mm-toggle
        cua-mode
        "CUA Mode (without C-x/C-c/C-v)"
@@ -1655,23 +1655,23 @@ mail status in mode line"))
        (:visible (and (boundp 'cua-enable-cua-keys)
                      (not cua-enable-cua-keys)))))
 
-    (bindings--define-key menu [search-options]
+    (define-key menu [search-options]
       `(menu-item "Default Search Options"
                  ,menu-bar-search-options-menu))
 
-    (bindings--define-key menu [line-wrapping]
+    (define-key menu [line-wrapping]
       `(menu-item "Line Wrapping in This Buffer"
                  ,menu-bar-line-wrapping-menu))
 
 
-    (bindings--define-key menu [highlight-separator]
+    (define-key menu [highlight-separator]
       menu-bar-separator)
-    (bindings--define-key menu [highlight-paren-mode]
+    (define-key menu [highlight-paren-mode]
       (menu-bar-make-mm-toggle
        show-paren-mode
        "Highlight Matching Parentheses"
        "Highlight matching/mismatched parentheses at cursor (Show Paren 
mode)"))
-    (bindings--define-key menu [transient-mark-mode]
+    (define-key menu [transient-mark-mode]
       (menu-bar-make-mm-toggle
        transient-mark-mode
        "Highlight Active Region"
@@ -1685,104 +1685,104 @@ mail status in mode line"))
 (defvar menu-bar-games-menu
   (let ((menu (make-sparse-keymap "Games")))
 
-    (bindings--define-key menu [zone]
+    (define-key menu [zone]
       '(menu-item "Zone Out" zone
                   :help "Play tricks with Emacs display when Emacs is idle"))
-    (bindings--define-key menu [tetris]
+    (define-key menu [tetris]
       '(menu-item "Tetris" tetris
                   :help "Falling blocks game"))
-    (bindings--define-key menu [solitaire]
+    (define-key menu [solitaire]
       '(menu-item "Solitaire" solitaire
                   :help "Get rid of all the stones"))
-    (bindings--define-key menu [snake]
+    (define-key menu [snake]
       '(menu-item "Snake" snake
                   :help "Move snake around avoiding collisions"))
-    (bindings--define-key menu [pong]
+    (define-key menu [pong]
       '(menu-item "Pong" pong
                   :help "Bounce the ball to your opponent"))
-    (bindings--define-key menu [mult]
+    (define-key menu [mult]
       '(menu-item "Multiplication Puzzle"  mpuz
                   :help "Exercise brain with multiplication"))
-    (bindings--define-key menu [life]
+    (define-key menu [life]
       '(menu-item "Life"  life
                   :help "Watch how John Conway's cellular automaton evolves"))
-    (bindings--define-key menu [hanoi]
+    (define-key menu [hanoi]
       '(menu-item "Towers of Hanoi" hanoi
                   :help "Watch Towers-of-Hanoi puzzle solved by Emacs"))
-    (bindings--define-key menu [gomoku]
+    (define-key menu [gomoku]
       '(menu-item "Gomoku"  gomoku
                   :help "Mark 5 contiguous squares (like tic-tac-toe)"))
-    (bindings--define-key menu [bubbles]
+    (define-key menu [bubbles]
       '(menu-item "Bubbles" bubbles
                   :help "Remove all bubbles using the fewest moves"))
-    (bindings--define-key menu [black-box]
+    (define-key menu [black-box]
       '(menu-item "Blackbox"  blackbox
                   :help "Find balls in a black box by shooting rays"))
-    (bindings--define-key menu [adventure]
+    (define-key menu [adventure]
       '(menu-item "Adventure"  dunnet
                   :help "Dunnet, a text Adventure game for Emacs"))
-    (bindings--define-key menu [5x5]
+    (define-key menu [5x5]
       '(menu-item "5x5" 5x5
                   :help "Fill in all the squares on a 5x5 board"))
     menu))
 
 (defvar menu-bar-encryption-decryption-menu
   (let ((menu (make-sparse-keymap "Encryption/Decryption")))
-    (bindings--define-key menu [insert-keys]
+    (define-key menu [insert-keys]
       '(menu-item "Insert Keys" epa-insert-keys
                   :help "Insert public keys after the current point"))
 
-    (bindings--define-key menu [export-keys]
+    (define-key menu [export-keys]
       '(menu-item "Export Keys" epa-export-keys
                   :help "Export public keys to a file"))
 
-    (bindings--define-key menu [import-keys-region]
+    (define-key menu [import-keys-region]
       '(menu-item "Import Keys from Region" epa-import-keys-region
                   :help "Import public keys from the current region"))
 
-    (bindings--define-key menu [import-keys]
+    (define-key menu [import-keys]
       '(menu-item "Import Keys from File..." epa-import-keys
                   :help "Import public keys from a file"))
 
-    (bindings--define-key menu [list-keys]
+    (define-key menu [list-keys]
       '(menu-item "List Keys" epa-list-keys
                   :help "Browse your public keyring"))
 
-    (bindings--define-key menu [separator-keys]
+    (define-key menu [separator-keys]
       menu-bar-separator)
 
-    (bindings--define-key menu [sign-region]
+    (define-key menu [sign-region]
       '(menu-item "Sign Region" epa-sign-region
                   :help "Create digital signature of the current region"))
 
-    (bindings--define-key menu [verify-region]
+    (define-key menu [verify-region]
       '(menu-item "Verify Region" epa-verify-region
                   :help "Verify digital signature of the current region"))
 
-    (bindings--define-key menu [encrypt-region]
+    (define-key menu [encrypt-region]
       '(menu-item "Encrypt Region" epa-encrypt-region
                   :help "Encrypt the current region"))
 
-    (bindings--define-key menu [decrypt-region]
+    (define-key menu [decrypt-region]
       '(menu-item "Decrypt Region" epa-decrypt-region
                   :help "Decrypt the current region"))
 
-    (bindings--define-key menu [separator-file]
+    (define-key menu [separator-file]
       menu-bar-separator)
 
-    (bindings--define-key menu [sign-file]
+    (define-key menu [sign-file]
       '(menu-item "Sign File..." epa-sign-file
                   :help "Create digital signature of a file"))
 
-    (bindings--define-key menu [verify-file]
+    (define-key menu [verify-file]
       '(menu-item "Verify File..." epa-verify-file
                   :help "Verify digital signature of a file"))
 
-    (bindings--define-key menu [encrypt-file]
+    (define-key menu [encrypt-file]
       '(menu-item "Encrypt File..." epa-encrypt-file
                   :help "Encrypt a file"))
 
-    (bindings--define-key menu [decrypt-file]
+    (define-key menu [decrypt-file]
       '(menu-item "Decrypt File..." epa-decrypt-file
                   :help "Decrypt a file"))
 
@@ -1790,24 +1790,24 @@ mail status in mode line"))
 
 (defvar menu-bar-shell-commands-menu
   (let ((menu (make-sparse-keymap "Shell Commands")))
-    (bindings--define-key menu [project-interactive-shell]
+    (define-key menu [project-interactive-shell]
       '(menu-item "Run Shell In Project" project-shell
                   :help "Run a subshell interactively, in the current 
project's root directory"))
 
-    (bindings--define-key menu [interactive-shell]
+    (define-key menu [interactive-shell]
       '(menu-item "Run Shell" shell
                   :help "Run a subshell interactively"))
 
-    (bindings--define-key menu [async-shell-command]
+    (define-key menu [async-shell-command]
       '(menu-item "Async Shell Command..." async-shell-command
                   :help "Invoke a shell command asynchronously in background"))
 
-    (bindings--define-key menu [shell-on-region]
+    (define-key menu [shell-on-region]
       '(menu-item "Shell Command on Region..." shell-command-on-region
                   :enable mark-active
                   :help "Pass marked region to a shell command"))
 
-    (bindings--define-key menu [shell]
+    (define-key menu [shell]
       '(menu-item "Shell Command..." shell-command
                   :help "Invoke a shell command and catch its output"))
 
@@ -1815,27 +1815,27 @@ mail status in mode line"))
 
 (defvar menu-bar-project-menu
   (let ((menu (make-sparse-keymap "Project")))
-    (bindings--define-key menu [project-execute-extended-command] '(menu-item 
"Execute Extended Command..." project-execute-extended-command :help "Execute 
an extended command in project root directory"))
-    (bindings--define-key menu [project-query-replace-regexp] '(menu-item 
"Query Replace Regexp..." project-query-replace-regexp :help "Interactively 
replace a regexp in files belonging to current project"))
-    (bindings--define-key menu [project-or-external-find-regexp] '(menu-item 
"Find Regexp Including External Roots..." project-or-external-find-regexp :help 
"Search for a regexp in files belonging to current project or external files"))
-    (bindings--define-key menu [project-find-regexp] '(menu-item "Find 
Regexp..." project-find-regexp :help "Search for a regexp in files belonging to 
current project"))
-    (bindings--define-key menu [separator-project-search] menu-bar-separator)
-    (bindings--define-key menu [project-kill-buffers] '(menu-item "Kill 
Buffers..." project-kill-buffers :help "Kill the buffers belonging to the 
current project"))
-    (bindings--define-key menu [project-list-buffers] '(menu-item "List 
Buffers" project-list-buffers :help "Pop up a window listing all Emacs buffers 
belonging to current project"))
-    (bindings--define-key menu [project-switch-to-buffer] '(menu-item "Switch 
To Buffer..." project-switch-to-buffer :help "Prompt for a buffer belonging to 
current project, and switch to it"))
-    (bindings--define-key menu [separator-project-buffers] menu-bar-separator)
-    (bindings--define-key menu [project-async-shell-command] '(menu-item 
"Async Shell Command..." project-async-shell-command :help "Invoke a shell 
command in project root asynchronously in background"))
-    (bindings--define-key menu [project-shell-command] '(menu-item "Shell 
Command..." project-shell-command :help "Invoke a shell command in project root 
and catch its output"))
-    (bindings--define-key menu [project-eshell] '(menu-item "Run Eshell" 
project-eshell :help "Run eshell for the current project"))
-    (bindings--define-key menu [project-shell] '(menu-item "Run Shell" 
project-shell :help "Run a subshell interactively, in the current project's 
root directory"))
-    (bindings--define-key menu [project-compile] '(menu-item "Compile..." 
project-compile :help "Invoke compiler or Make for current project, view 
errors"))
-    (bindings--define-key menu [separator-project-programs] menu-bar-separator)
-    (bindings--define-key menu [project-switch-project] '(menu-item "Switch 
Project..." project-switch-project :help "Switch to another project and then 
run a command"))
-    (bindings--define-key menu [project-vc-dir] '(menu-item "VC Dir" 
project-vc-dir :help "Show the VC status of the project repository"))
-    (bindings--define-key menu [project-dired] '(menu-item "Open Project Root" 
project-dired :help "Read the root directory of the current project, to operate 
on its files"))
-    (bindings--define-key menu [project-find-dir] '(menu-item "Open 
Directory..." project-find-dir :help "Open existing directory that belongs to 
current project"))
-    (bindings--define-key menu [project-or-external-find-file] '(menu-item 
"Open File Including External Roots..." project-or-external-find-file :help 
"Open existing file that belongs to current project or its external roots"))
-    (bindings--define-key menu [project-open-file] '(menu-item "Open File..." 
project-find-file :help "Open an existing file that belongs to current 
project"))
+    (define-key menu [project-execute-extended-command] '(menu-item "Execute 
Extended Command..." project-execute-extended-command :help "Execute an 
extended command in project root directory"))
+    (define-key menu [project-query-replace-regexp] '(menu-item "Query Replace 
Regexp..." project-query-replace-regexp :help "Interactively replace a regexp 
in files belonging to current project"))
+    (define-key menu [project-or-external-find-regexp] '(menu-item "Find 
Regexp Including External Roots..." project-or-external-find-regexp :help 
"Search for a regexp in files belonging to current project or external files"))
+    (define-key menu [project-find-regexp] '(menu-item "Find Regexp..." 
project-find-regexp :help "Search for a regexp in files belonging to current 
project"))
+    (define-key menu [separator-project-search] menu-bar-separator)
+    (define-key menu [project-kill-buffers] '(menu-item "Kill Buffers..." 
project-kill-buffers :help "Kill the buffers belonging to the current project"))
+    (define-key menu [project-list-buffers] '(menu-item "List Buffers" 
project-list-buffers :help "Pop up a window listing all Emacs buffers belonging 
to current project"))
+    (define-key menu [project-switch-to-buffer] '(menu-item "Switch To 
Buffer..." project-switch-to-buffer :help "Prompt for a buffer belonging to 
current project, and switch to it"))
+    (define-key menu [separator-project-buffers] menu-bar-separator)
+    (define-key menu [project-async-shell-command] '(menu-item "Async Shell 
Command..." project-async-shell-command :help "Invoke a shell command in 
project root asynchronously in background"))
+    (define-key menu [project-shell-command] '(menu-item "Shell Command..." 
project-shell-command :help "Invoke a shell command in project root and catch 
its output"))
+    (define-key menu [project-eshell] '(menu-item "Run Eshell" project-eshell 
:help "Run eshell for the current project"))
+    (define-key menu [project-shell] '(menu-item "Run Shell" project-shell 
:help "Run a subshell interactively, in the current project's root directory"))
+    (define-key menu [project-compile] '(menu-item "Compile..." 
project-compile :help "Invoke compiler or Make for current project, view 
errors"))
+    (define-key menu [separator-project-programs] menu-bar-separator)
+    (define-key menu [project-switch-project] '(menu-item "Switch Project..." 
project-switch-project :help "Switch to another project and then run a 
command"))
+    (define-key menu [project-vc-dir] '(menu-item "VC Dir" project-vc-dir 
:help "Show the VC status of the project repository"))
+    (define-key menu [project-dired] '(menu-item "Open Project Root" 
project-dired :help "Read the root directory of the current project, to operate 
on its files"))
+    (define-key menu [project-find-dir] '(menu-item "Open Directory..." 
project-find-dir :help "Open existing directory that belongs to current 
project"))
+    (define-key menu [project-or-external-find-file] '(menu-item "Open File 
Including External Roots..." project-or-external-find-file :help "Open existing 
file that belongs to current project or its external roots"))
+    (define-key menu [project-open-file] '(menu-item "Open File..." 
project-find-file :help "Open an existing file that belongs to current 
project"))
     menu))
 
 (defvar menu-bar-project-item
@@ -1849,112 +1849,112 @@ mail status in mode line"))
 (defvar menu-bar-tools-menu
   (let ((menu (make-sparse-keymap "Tools")))
 
-    (bindings--define-key menu [games]
+    (define-key menu [games]
       `(menu-item "Games" ,menu-bar-games-menu))
 
-    (bindings--define-key menu [separator-games]
+    (define-key menu [separator-games]
       menu-bar-separator)
 
-    (bindings--define-key menu [encryption-decryption]
+    (define-key menu [encryption-decryption]
       `(menu-item "Encryption/Decryption"
                   ,menu-bar-encryption-decryption-menu))
 
-    (bindings--define-key menu [separator-encryption-decryption]
+    (define-key menu [separator-encryption-decryption]
       menu-bar-separator)
 
-    (bindings--define-key menu [simple-calculator]
+    (define-key menu [simple-calculator]
       '(menu-item "Simple Calculator" calculator
                   :help "Invoke the Emacs built-in quick calculator"))
-    (bindings--define-key menu [calc]
+    (define-key menu [calc]
       '(menu-item "Programmable Calculator" calc
                   :help "Invoke the Emacs built-in full scientific 
calculator"))
-    (bindings--define-key menu [calendar]
+    (define-key menu [calendar]
       '(menu-item "Calendar" calendar
                   :help "Invoke the Emacs built-in calendar"))
 
-    (bindings--define-key menu [separator-net]
+    (define-key menu [separator-net]
       menu-bar-separator)
 
-    (bindings--define-key menu [browse-web]
+    (define-key menu [browse-web]
       '(menu-item "Browse the Web..." browse-web))
-    (bindings--define-key menu [directory-search]
+    (define-key menu [directory-search]
       '(menu-item "Directory Servers" eudc-tools-menu))
-    (bindings--define-key menu [compose-mail]
+    (define-key menu [compose-mail]
       '(menu-item "Compose New Mail" compose-mail
                   :visible (and mail-user-agent (not (eq mail-user-agent 
'ignore)))
                   :help "Start writing a new mail message"))
-    (bindings--define-key menu [rmail]
+    (define-key menu [rmail]
       '(menu-item "Read Mail" menu-bar-read-mail
                   :visible (and read-mail-command
                                 (not (eq read-mail-command 'ignore)))
                   :help "Read your mail"))
 
-    (bindings--define-key menu [gnus]
+    (define-key menu [gnus]
       '(menu-item "Read Net News" gnus
                   :help "Read network news groups"))
 
-    (bindings--define-key menu [separator-vc]
+    (define-key menu [separator-vc]
       menu-bar-separator)
 
-    (bindings--define-key menu [vc] nil) ;Create the place for the VC menu.
+    (define-key menu [vc] nil) ;Create the place for the VC menu.
 
-    (bindings--define-key menu [separator-compare]
+    (define-key menu [separator-compare]
       menu-bar-separator)
 
-    (bindings--define-key menu [epatch]
+    (define-key menu [epatch]
       '(menu-item "Apply Patch" menu-bar-epatch-menu))
-    (bindings--define-key menu [ediff-merge]
+    (define-key menu [ediff-merge]
       '(menu-item "Merge" menu-bar-ediff-merge-menu))
-    (bindings--define-key menu [compare]
+    (define-key menu [compare]
       '(menu-item "Compare (Ediff)" menu-bar-ediff-menu))
 
-    (bindings--define-key menu [separator-spell]
+    (define-key menu [separator-spell]
       menu-bar-separator)
 
-    (bindings--define-key menu [spell]
+    (define-key menu [spell]
       '(menu-item "Spell Checking" ispell-menu-map))
 
-    (bindings--define-key menu [separator-prog]
+    (define-key menu [separator-prog]
       menu-bar-separator)
 
-    (bindings--define-key menu [semantic]
+    (define-key menu [semantic]
       '(menu-item "Source Code Parsers (Semantic)"
                   semantic-mode
                   :help "Toggle automatic parsing in source code buffers 
(Semantic mode)"
                   :button (:toggle . (bound-and-true-p semantic-mode))))
 
-    (bindings--define-key menu [eglot]
+    (define-key menu [eglot]
       '(menu-item "Language Server Support (Eglot)" eglot
                   :help "Start language server suitable for this buffer's 
major-mode"))
 
-    (bindings--define-key menu [project]
+    (define-key menu [project]
       menu-bar-project-item)
 
-    (bindings--define-key menu [ede]
+    (define-key menu [ede]
       '(menu-item "Project Support (EDE)"
                   global-ede-mode
                   :help "Toggle the Emacs Development Environment (Global EDE 
mode)"
                   :button (:toggle . (bound-and-true-p global-ede-mode))))
 
-    (bindings--define-key menu [gdb]
+    (define-key menu [gdb]
       '(menu-item "Debugger (GDB)..." gdb
                   :help "Debug a program from within Emacs with GDB"))
-    (bindings--define-key menu [project-compile]
+    (define-key menu [project-compile]
       '(menu-item "Compile Project..." project-compile
                   :help "Invoke compiler or Make for current project, view 
errors"))
 
-    (bindings--define-key menu [compile]
+    (define-key menu [compile]
       '(menu-item "Compile..." compile
                   :help "Invoke compiler or Make in current buffer's 
directory, view errors"))
 
-    (bindings--define-key menu [shell-commands]
+    (define-key menu [shell-commands]
       `(menu-item "Shell Commands"
                   ,menu-bar-shell-commands-menu))
 
-    (bindings--define-key menu [rgrep]
+    (define-key menu [rgrep]
       '(menu-item "Recursive Grep..." rgrep
                   :help "Interactively ask for parameters and search 
recursively"))
-    (bindings--define-key menu [grep]
+    (define-key menu [grep]
       '(menu-item "Search Files (Grep)..." grep
                   :help "Search files for strings or regexps (with Grep)"))
     menu))
@@ -1964,58 +1964,58 @@ mail status in mode line"))
 (defvar menu-bar-describe-menu
   (let ((menu (make-sparse-keymap "Describe")))
 
-    (bindings--define-key menu [mule-diag]
+    (define-key menu [mule-diag]
       '(menu-item "Show All of Mule Status" mule-diag
                   :help "Display multilingual environment settings"))
-    (bindings--define-key menu [describe-coding-system-briefly]
+    (define-key menu [describe-coding-system-briefly]
       '(menu-item "Describe Coding System (Briefly)"
                   describe-current-coding-system-briefly))
-    (bindings--define-key menu [describe-coding-system]
+    (define-key menu [describe-coding-system]
       '(menu-item "Describe Coding System..." describe-coding-system))
-    (bindings--define-key menu [describe-input-method]
+    (define-key menu [describe-input-method]
       '(menu-item "Describe Input Method..." describe-input-method
                   :help "Keyboard layout for specific input method"))
-    (bindings--define-key menu [describe-language-environment]
+    (define-key menu [describe-language-environment]
       `(menu-item "Describe Language Environment"
                   ,describe-language-environment-map))
 
-    (bindings--define-key menu [separator-desc-mule]
+    (define-key menu [separator-desc-mule]
       menu-bar-separator)
 
-    (bindings--define-key menu [list-keybindings]
+    (define-key menu [list-keybindings]
       '(menu-item "List Key Bindings" describe-bindings
                   :help "Display all current key bindings (keyboard 
shortcuts)"))
-    (bindings--define-key menu [list-recent-keystrokes]
+    (define-key menu [list-recent-keystrokes]
       '(menu-item "Show Recent Inputs" view-lossage
                   :help "Display last few input events and the commands \
 they ran"))
-    (bindings--define-key menu [describe-current-display-table]
+    (define-key menu [describe-current-display-table]
       '(menu-item "Describe Display Table" describe-current-display-table
                   :help "Describe the current display table"))
-    (bindings--define-key menu [describe-package]
+    (define-key menu [describe-package]
       '(menu-item "Describe Package..." describe-package
                   :help "Display documentation of a Lisp package"))
-    (bindings--define-key menu [describe-face]
+    (define-key menu [describe-face]
       '(menu-item "Describe Face..." describe-face
                   :help "Display the properties of a face"))
-    (bindings--define-key menu [describe-variable]
+    (define-key menu [describe-variable]
       '(menu-item "Describe Variable..." describe-variable
                   :help "Display documentation of variable/option"))
-    (bindings--define-key menu [describe-function]
+    (define-key menu [describe-function]
       '(menu-item "Describe Function..." describe-function
                   :help "Display documentation of function/command"))
-    (bindings--define-key menu [describe-command]
+    (define-key menu [describe-command]
       '(menu-item "Describe Command..." describe-command
                   :help "Display documentation of command"))
-    (bindings--define-key menu [shortdoc-display-group]
+    (define-key menu [shortdoc-display-group]
       '(menu-item "Function Group Overview..." shortdoc-display-group
                   :help "Display a function overview for a specific topic"))
-    (bindings--define-key menu [describe-key-1]
+    (define-key menu [describe-key-1]
       '(menu-item "Describe Key or Mouse Operation..." describe-key
                   ;; Users typically don't identify keys and menu items...
                   :help "Display documentation of command bound to a \
 key, a click, or a menu-item"))
-    (bindings--define-key menu [describe-mode]
+    (define-key menu [describe-mode]
       '(menu-item "Describe Buffer Modes" describe-mode
                   :help "Describe this buffer's major and minor mode"))
     menu))
@@ -2060,40 +2060,40 @@ key, a click, or a menu-item"))
 (defvar menu-bar-search-documentation-menu
   (let ((menu (make-sparse-keymap "Search Documentation")))
 
-    (bindings--define-key menu [search-documentation-strings]
+    (define-key menu [search-documentation-strings]
       '(menu-item "Search Documentation Strings..." apropos-documentation
                   :help
                   "Find functions and variables whose doc strings match a 
regexp"))
-    (bindings--define-key menu [find-any-object-by-name]
+    (define-key menu [find-any-object-by-name]
       '(menu-item "Find Any Object by Name..." apropos
                   :help "Find symbols of any kind whose names match a regexp"))
-    (bindings--define-key menu [find-option-by-value]
+    (define-key menu [find-option-by-value]
       '(menu-item "Find Options by Value..." apropos-value
                   :help "Find variables whose values match a regexp"))
-    (bindings--define-key menu [find-options-by-name]
+    (define-key menu [find-options-by-name]
       '(menu-item "Find Options by Name..." apropos-user-option
                   :help "Find user options whose names match a regexp"))
-    (bindings--define-key menu [find-commands-by-name]
+    (define-key menu [find-commands-by-name]
       '(menu-item "Find Commands by Name..." apropos-command
                   :help "Find commands whose names match a regexp"))
-    (bindings--define-key menu [sep1]
+    (define-key menu [sep1]
       menu-bar-separator)
-    (bindings--define-key menu [lookup-symbol-in-manual]
+    (define-key menu [lookup-symbol-in-manual]
       '(menu-item "Look Up Symbol in Manual..." info-lookup-symbol
                   :help "Display manual section that describes a symbol"))
-    (bindings--define-key menu [lookup-command-in-manual]
+    (define-key menu [lookup-command-in-manual]
       '(menu-item "Look Up Command in User Manual..." 
Info-goto-emacs-command-node
                   :help "Display manual section that describes a command"))
-    (bindings--define-key menu [lookup-key-in-manual]
+    (define-key menu [lookup-key-in-manual]
       '(menu-item "Look Up Key in User Manual..." 
Info-goto-emacs-key-command-node
                   :help "Display manual section that describes a key"))
-    (bindings--define-key menu [lookup-subject-in-elisp-manual]
+    (define-key menu [lookup-subject-in-elisp-manual]
       '(menu-item "Look Up Subject in ELisp Manual..." elisp-index-search
                   :help "Find description of a subject in Emacs Lisp manual"))
-    (bindings--define-key menu [lookup-subject-in-emacs-manual]
+    (define-key menu [lookup-subject-in-emacs-manual]
       '(menu-item "Look Up Subject in User Manual..." emacs-index-search
                   :help "Find description of a subject in Emacs User manual"))
-    (bindings--define-key menu [emacs-terminology]
+    (define-key menu [emacs-terminology]
       '(menu-item "Emacs Terminology" search-emacs-glossary
                   :help "Display the Glossary section of the Emacs manual"))
     menu))
@@ -2101,24 +2101,24 @@ key, a click, or a menu-item"))
 (defvar menu-bar-manuals-menu
   (let ((menu (make-sparse-keymap "More Manuals")))
 
-    (bindings--define-key menu [man]
+    (define-key menu [man]
       '(menu-item "Read Man Page..." manual-entry
                   :help "Man-page docs for external commands and libraries"))
-    (bindings--define-key menu [sep2]
+    (define-key menu [sep2]
       menu-bar-separator)
-    (bindings--define-key menu [order-emacs-manuals]
+    (define-key menu [order-emacs-manuals]
       '(menu-item "Ordering Manuals" view-order-manuals
                   :help "How to order manuals from the Free Software 
Foundation"))
-    (bindings--define-key menu [lookup-subject-in-all-manuals]
+    (define-key menu [lookup-subject-in-all-manuals]
       '(menu-item "Lookup Subject in all Manuals..." info-apropos
                   :help "Find description of a subject in all installed 
manuals"))
-    (bindings--define-key menu [other-manuals]
+    (define-key menu [other-manuals]
       '(menu-item "All Other Manuals (Info)" Info-directory
                   :help "Read any of the installed manuals"))
-    (bindings--define-key menu [emacs-lisp-reference]
+    (define-key menu [emacs-lisp-reference]
       '(menu-item "Emacs Lisp Reference" menu-bar-read-lispref
                   :help "Read the Emacs Lisp Reference manual"))
-    (bindings--define-key menu [emacs-lisp-intro]
+    (define-key menu [emacs-lisp-intro]
       '(menu-item "Introduction to Emacs Lisp" menu-bar-read-lispintro
                   :help "Read the Introduction to Emacs Lisp Programming"))
     menu))
@@ -2130,66 +2130,66 @@ key, a click, or a menu-item"))
 
 (defvar menu-bar-help-menu
   (let ((menu (make-sparse-keymap "Help")))
-    (bindings--define-key menu [about-gnu-project]
+    (define-key menu [about-gnu-project]
       '(menu-item "About GNU" describe-gnu-project
                   :help "About the GNU System, GNU Project, and GNU/Linux"))
-    (bindings--define-key menu [about-emacs]
+    (define-key menu [about-emacs]
       '(menu-item "About Emacs" about-emacs
                   :help "Display version number, copyright info, and basic 
help"))
-    (bindings--define-key menu [sep4]
+    (define-key menu [sep4]
       menu-bar-separator)
-    (bindings--define-key menu [describe-no-warranty]
+    (define-key menu [describe-no-warranty]
       '(menu-item "(Non)Warranty" describe-no-warranty
                   :help "Explain that Emacs has NO WARRANTY"))
-    (bindings--define-key menu [describe-copying]
+    (define-key menu [describe-copying]
       '(menu-item "Copying Conditions" describe-copying
                   :help "Show the Emacs license (GPL)"))
-    (bindings--define-key menu [getting-new-versions]
+    (define-key menu [getting-new-versions]
       '(menu-item "Getting New Versions" describe-distribution
                   :help "How to get the latest version of Emacs"))
-    (bindings--define-key menu [sep2]
+    (define-key menu [sep2]
       menu-bar-separator)
-    (bindings--define-key menu [external-packages]
+    (define-key menu [external-packages]
       '(menu-item "Finding Extra Packages" view-external-packages
                   :help "How to get more Lisp packages for use in Emacs"))
-    (bindings--define-key menu [find-emacs-packages]
+    (define-key menu [find-emacs-packages]
       '(menu-item "Search Built-in Packages" finder-by-keyword
                   :help "Find built-in packages and features by keyword"))
-    (bindings--define-key menu [more-manuals]
+    (define-key menu [more-manuals]
       `(menu-item "More Manuals" ,menu-bar-manuals-menu))
-    (bindings--define-key menu [emacs-manual]
+    (define-key menu [emacs-manual]
       '(menu-item "Read the Emacs Manual" info-emacs-manual
                   :help "Full documentation of Emacs features"))
-    (bindings--define-key menu [describe]
+    (define-key menu [describe]
       `(menu-item "Describe" ,menu-bar-describe-menu))
-    (bindings--define-key menu [search-documentation]
+    (define-key menu [search-documentation]
       `(menu-item "Search Documentation" ,menu-bar-search-documentation-menu))
-    (bindings--define-key menu [sep1]
+    (define-key menu [sep1]
       menu-bar-separator)
-    (bindings--define-key menu [emacs-psychotherapist]
+    (define-key menu [emacs-psychotherapist]
       '(menu-item "Emacs Psychotherapist" doctor
                   :help "Our doctor will help you feel better"))
-    (bindings--define-key menu [send-emacs-bug-report]
+    (define-key menu [send-emacs-bug-report]
       '(menu-item "Send Bug Report..." report-emacs-bug
                   :help "Send e-mail to Emacs maintainers"))
-    (bindings--define-key menu [emacs-manual-bug]
+    (define-key menu [emacs-manual-bug]
       '(menu-item "How to Report a Bug" info-emacs-bug
                   :help "Read about how to report an Emacs bug"))
-    (bindings--define-key menu [emacs-known-problems]
+    (define-key menu [emacs-known-problems]
       '(menu-item "Emacs Known Problems" view-emacs-problems
                   :help "Read about known problems with Emacs"))
-    (bindings--define-key menu [emacs-news]
+    (define-key menu [emacs-news]
       '(menu-item "Emacs News" view-emacs-news
                   :help "New features of this version"))
-    (bindings--define-key menu [emacs-faq]
+    (define-key menu [emacs-faq]
       '(menu-item "Emacs FAQ" view-emacs-FAQ
                   :help "Frequently asked (and answered) questions about 
Emacs"))
 
-    (bindings--define-key menu [emacs-tutorial-language-specific]
+    (define-key menu [emacs-tutorial-language-specific]
       '(menu-item "Emacs Tutorial (choose language)..."
                   help-with-tutorial-spec-language
                   :help "Learn how to use Emacs (choose a language)"))
-    (bindings--define-key menu [emacs-tutorial]
+    (define-key menu [emacs-tutorial]
       '(menu-item "Emacs Tutorial" help-with-tutorial
                   :help "Learn how to use Emacs"))
 
@@ -2197,21 +2197,21 @@ key, a click, or a menu-item"))
     ;; FIXME? There already is an "About Emacs" (sans ...) entry in the Help 
menu.
     (and (featurep 'ns)
          (not (eq system-type 'darwin))
-         (bindings--define-key menu [info-panel]
+         (define-key menu [info-panel]
            '(menu-item "About Emacs..." ns-do-emacs-info-panel)))
     menu))
 
-(bindings--define-key global-map [menu-bar tools]
+(define-key global-map [menu-bar tools]
   (cons "Tools" menu-bar-tools-menu))
-(bindings--define-key global-map [menu-bar buffer]
+(define-key global-map [menu-bar buffer]
   (cons "Buffers" global-buffers-menu-map))
-(bindings--define-key global-map [menu-bar options]
+(define-key global-map [menu-bar options]
   (cons "Options" menu-bar-options-menu))
-(bindings--define-key global-map [menu-bar edit]
+(define-key global-map [menu-bar edit]
   (cons "Edit" menu-bar-edit-menu))
-(bindings--define-key global-map [menu-bar file]
+(define-key global-map [menu-bar file]
   (cons "File" menu-bar-file-menu))
-(bindings--define-key global-map [menu-bar help-menu]
+(define-key global-map [menu-bar help-menu]
   (cons (purecopy "Help") menu-bar-help-menu))
 
 (define-key global-map [menu-bar mouse-1] 'menu-bar-open-mouse)
@@ -2577,38 +2577,38 @@ It must accept a buffer as its only required argument.")
                   ;; This shouldn't be necessary, but there's a funny
                   ;; bug in keymap.c that I don't understand yet.  -stef
                   minibuffer-local-completion-map))
-  (bindings--define-key map [menu-bar minibuf]
+  (define-key map [menu-bar minibuf]
     (cons "Minibuf" (make-sparse-keymap "Minibuf"))))
 
 (let ((map minibuffer-local-completion-map))
-  (bindings--define-key map [menu-bar minibuf ?\?]
+  (define-key map [menu-bar minibuf ?\?]
     '(menu-item "List Completions" minibuffer-completion-help
                :help "Display all possible completions"))
-  (bindings--define-key map [menu-bar minibuf space]
+  (define-key map [menu-bar minibuf space]
     '(menu-item "Complete Word" minibuffer-complete-word
                :help "Complete at most one word"))
-  (bindings--define-key map [menu-bar minibuf tab]
+  (define-key map [menu-bar minibuf tab]
     '(menu-item "Complete" minibuffer-complete
                :help "Complete as far as possible")))
 
 (let ((map minibuffer-local-map))
-  (bindings--define-key map [menu-bar minibuf quit]
+  (define-key map [menu-bar minibuf quit]
     '(menu-item "Quit" abort-recursive-edit
                :help "Abort input and exit minibuffer"))
-  (bindings--define-key map [menu-bar minibuf return]
+  (define-key map [menu-bar minibuf return]
     '(menu-item "Enter" exit-minibuffer
                :key-sequence "\r"
                :help "Terminate input and exit minibuffer"))
-  (bindings--define-key map [menu-bar minibuf isearch-forward]
+  (define-key map [menu-bar minibuf isearch-forward]
     '(menu-item "Isearch History Forward" isearch-forward
                :help "Incrementally search minibuffer history forward"))
-  (bindings--define-key map [menu-bar minibuf isearch-backward]
+  (define-key map [menu-bar minibuf isearch-backward]
     '(menu-item "Isearch History Backward" isearch-backward
                :help "Incrementally search minibuffer history backward"))
-  (bindings--define-key map [menu-bar minibuf next]
+  (define-key map [menu-bar minibuf next]
     '(menu-item "Next History Item" next-history-element
                :help "Put next minibuffer history element in the minibuffer"))
-  (bindings--define-key map [menu-bar minibuf previous]
+  (define-key map [menu-bar minibuf previous]
     '(menu-item "Previous History Item" previous-history-element
                :help "Put previous minibuffer history element in the 
minibuffer")))
 
diff --git a/lisp/replace.el b/lisp/replace.el
index 2285b19b519..51b8799ab76 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1315,7 +1315,7 @@ a previously found match."
     (define-key map "r" 'occur-rename-buffer)
     (define-key map "c" 'clone-buffer)
     (define-key map "\C-c\C-f" 'next-error-follow-minor-mode)
-    (bindings--define-key map [menu-bar occur] (cons "Occur" occur-menu-map))
+    (define-key map [menu-bar occur] (cons "Occur" occur-menu-map))
     map)
   "Keymap for `occur-mode'.")
 
@@ -1368,7 +1368,7 @@ Alternatively, click \\[occur-mode-mouse-goto] on an item 
to go to it.
     (define-key map "\C-c\C-c" 'occur-cease-edit)
     (define-key map "\C-o" 'occur-mode-display-occurrence)
     (define-key map "\C-c\C-f" 'next-error-follow-minor-mode)
-    (bindings--define-key map [menu-bar occur] (cons "Occur" occur-menu-map))
+    (define-key map [menu-bar occur] (cons "Occur" occur-menu-map))
     map)
   "Keymap for `occur-edit-mode'.")
 
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 2a29457133e..dac61c607eb 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -809,15 +809,15 @@ See the documentation of 
`create-fontset-from-fontset-spec' for the format.")
        (setq menu-bar-final-items '(buffer services hide-app quit))
 
        ;; If running under GNUstep, "Help" is moved and renamed "Info".
-       (bindings--define-key global-map [menu-bar help-menu]
+        (define-key global-map [menu-bar help-menu]
          (cons "Info" menu-bar-help-menu))
-       (bindings--define-key global-map [menu-bar quit]
+        (define-key global-map [menu-bar quit]
          '(menu-item "Quit" save-buffers-kill-emacs
                      :help "Save unsaved buffers, then exit"))
-       (bindings--define-key global-map [menu-bar hide-app]
+        (define-key global-map [menu-bar hide-app]
          '(menu-item "Hide" ns-do-hide-emacs
                      :help "Hide Emacs"))
-       (bindings--define-key global-map [menu-bar services]
+        (define-key global-map [menu-bar services]
          (cons "Services" (make-sparse-keymap "Services")))))
 
 
diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el
index 8f212e96933..8fd1aa90b31 100644
--- a/lisp/vc/vc-hooks.el
+++ b/lisp/vc/vc-hooks.el
@@ -940,76 +940,76 @@ In the latter case, VC mode is deactivated for this 
buffer."
   (let ((map (make-sparse-keymap "Version Control")))
     ;;(define-key map [show-files]
     ;;  '("Show Files under VC" . (vc-directory t)))
-    (bindings--define-key map [vc-retrieve-tag]
+    (define-key map [vc-retrieve-tag]
       '(menu-item "Retrieve Tag" vc-retrieve-tag
                  :help "Retrieve tagged version or branch"))
-    (bindings--define-key map [vc-create-tag]
+    (define-key map [vc-create-tag]
       '(menu-item "Create Tag" vc-create-tag
                  :help "Create version tag"))
-    (bindings--define-key map [vc-print-branch-log]
+    (define-key map [vc-print-branch-log]
       '(menu-item "Show Branch History..." vc-print-branch-log
                  :help "List the change log for another branch"))
-    (bindings--define-key map [vc-switch-branch]
+    (define-key map [vc-switch-branch]
       '(menu-item "Switch Branch..." vc-switch-branch
                  :help "Switch to another branch"))
-    (bindings--define-key map [vc-create-branch]
+    (define-key map [vc-create-branch]
       '(menu-item "Create Branch..." vc-create-branch
                  :help "Make a new branch"))
-    (bindings--define-key map [separator1] menu-bar-separator)
-    (bindings--define-key map [vc-annotate]
+    (define-key map [separator1] menu-bar-separator)
+    (define-key map [vc-annotate]
       '(menu-item "Annotate" vc-annotate
                  :help "Display the edit history of the current file using 
colors"))
-    (bindings--define-key map [vc-rename-file]
+    (define-key map [vc-rename-file]
       '(menu-item "Rename File" vc-rename-file
                  :help "Rename file"))
-    (bindings--define-key map [vc-revision-other-window]
+    (define-key map [vc-revision-other-window]
       '(menu-item "Show Other Version" vc-revision-other-window
                  :help "Visit another version of the current file in another 
window"))
-    (bindings--define-key map [vc-diff]
+    (define-key map [vc-diff]
       '(menu-item "Compare with Base Version" vc-diff
                  :help "Compare file set with the base version"))
-    (bindings--define-key map [vc-root-diff]
+    (define-key map [vc-root-diff]
       '(menu-item "Compare Tree with Base Version" vc-root-diff
                  :help "Compare current tree with the base version"))
-    (bindings--define-key map [vc-update-change-log]
+    (define-key map [vc-update-change-log]
       '(menu-item "Update ChangeLog" vc-update-change-log
                  :help "Find change log file and add entries from recent 
version control logs"))
-    (bindings--define-key map [vc-log-out]
+    (define-key map [vc-log-out]
       '(menu-item "Show Outgoing Log" vc-log-outgoing
                  :help "Show a log of changes that will be sent with a push 
operation"))
-    (bindings--define-key map [vc-log-in]
+    (define-key map [vc-log-in]
       '(menu-item "Show Incoming Log" vc-log-incoming
                  :help "Show a log of changes that will be received with a 
pull operation"))
-    (bindings--define-key map [vc-print-log]
+    (define-key map [vc-print-log]
       '(menu-item "Show History" vc-print-log
                  :help "List the change log of the current file set in a 
window"))
-    (bindings--define-key map [vc-print-root-log]
+    (define-key map [vc-print-root-log]
       '(menu-item "Show Top of the Tree History " vc-print-root-log
                  :help "List the change log for the current tree in a window"))
-    (bindings--define-key map [separator2] menu-bar-separator)
-    (bindings--define-key map [vc-insert-header]
+    (define-key map [separator2] menu-bar-separator)
+    (define-key map [vc-insert-header]
       '(menu-item "Insert Header" vc-insert-headers
                  :help "Insert headers into a file for use with a version 
control system."))
-    (bindings--define-key map [vc-revert]
+    (define-key map [vc-revert]
       '(menu-item "Revert to Base Version" vc-revert
                  :help "Revert working copies of the selected file set to 
their repository contents"))
     ;; TODO Only :enable if (vc-find-backend-function backend 'push)
-    (bindings--define-key map [vc-push]
+    (define-key map [vc-push]
       '(menu-item "Push Changes" vc-push
                  :help "Push the current branch's changes"))
-    (bindings--define-key map [vc-update]
+    (define-key map [vc-update]
       '(menu-item "Update to Latest Version" vc-update
                  :help "Update the current fileset's files to their tip 
revisions"))
-    (bindings--define-key map [vc-next-action]
+    (define-key map [vc-next-action]
       '(menu-item "Check In/Out" vc-next-action
                  :help "Do the next logical version control operation on the 
current fileset"))
-    (bindings--define-key map [vc-register]
+    (define-key map [vc-register]
       '(menu-item "Register" vc-register
                  :help "Register file set into a version control system"))
-    (bindings--define-key map [vc-ignore]
+    (define-key map [vc-ignore]
       '(menu-item "Ignore File..." vc-ignore
                  :help "Ignore a file under current version control system"))
-    (bindings--define-key map [vc-dir-root]
+    (define-key map [vc-dir-root]
       '(menu-item "VC Dir"  vc-dir-root
                   :help "Show the VC status of the repository"))
     map))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]