From 202a3a716b5e63f5c7e5faf06cfc0e646e2495c6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 7 Nov 2004 04:08:15 +0000 Subject: [PATCH] (iso-cvt-define-menu): menu-bar-files-menu renamed to menu-bar-file-menu. --- lisp/international/iso-cvt.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/international/iso-cvt.el b/lisp/international/iso-cvt.el index b0dffc40f50..1a2f822bb37 100644 --- a/lisp/international/iso-cvt.el +++ b/lisp/international/iso-cvt.el @@ -828,30 +828,30 @@ Optional arg BUFFER is ignored (for use in `format-alist')." ;;;###autoload (defun iso-cvt-define-menu () - "Add submenus to the Files menu, to convert to and from various formats." + "Add submenus to the File menu, to convert to and from various formats." (interactive) - (define-key menu-bar-files-menu [load-as-separator] '("--")) + (define-key menu-bar-file-menu [load-as-separator] '("--")) - (define-key menu-bar-files-menu [load-as] '("Load As..." . load-as)) + (define-key menu-bar-file-menu [load-as] '("Load As..." . load-as)) (defvar load-as-menu-map (make-sparse-keymap "Load As...")) (fset 'load-as load-as-menu-map) - ;;(define-key menu-bar-files-menu [insert-as] '("Insert As..." . insert-as)) + ;;(define-key menu-bar-file-menu [insert-as] '("Insert As..." . insert-as)) (defvar insert-as-menu-map (make-sparse-keymap "Insert As...")) (fset 'insert-as insert-as-menu-map) - (define-key menu-bar-files-menu [write-as] '("Write As..." . write-as)) + (define-key menu-bar-file-menu [write-as] '("Write As..." . write-as)) (defvar write-as-menu-map (make-sparse-keymap "Write As...")) (fset 'write-as write-as-menu-map) - (define-key menu-bar-files-menu [translate-separator] '("--")) + (define-key menu-bar-file-menu [translate-separator] '("--")) - (define-key menu-bar-files-menu [translate-to] '("Translate to..." . translate-to)) + (define-key menu-bar-file-menu [translate-to] '("Translate to..." . translate-to)) (defvar translate-to-menu-map (make-sparse-keymap "Translate to...")) (fset 'translate-to translate-to-menu-map) - (define-key menu-bar-files-menu [translate-from] '("Translate from..." . translate-from)) + (define-key menu-bar-file-menu [translate-from] '("Translate from..." . translate-from)) (defvar translate-from-menu-map (make-sparse-keymap "Translate from...")) (fset 'translate-from translate-from-menu-map) -- 2.39.5