diff options
| author | Richard M. Stallman | 2004-11-07 04:08:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-11-07 04:08:15 +0000 |
| commit | 202a3a716b5e63f5c7e5faf06cfc0e646e2495c6 (patch) | |
| tree | 9c52f64fd6719e7491a5ca1528c1b5e3c4de2d4b /lisp | |
| parent | db32470656647b86be4087d35cee05f5e1283004 (diff) | |
| download | emacs-202a3a716b5e63f5c7e5faf06cfc0e646e2495c6.tar.gz emacs-202a3a716b5e63f5c7e5faf06cfc0e646e2495c6.zip | |
(iso-cvt-define-menu): menu-bar-files-menu renamed to menu-bar-file-menu.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/iso-cvt.el | 16 |
1 files 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')." | |||
| 828 | 828 | ||
| 829 | ;;;###autoload | 829 | ;;;###autoload |
| 830 | (defun iso-cvt-define-menu () | 830 | (defun iso-cvt-define-menu () |
| 831 | "Add submenus to the Files menu, to convert to and from various formats." | 831 | "Add submenus to the File menu, to convert to and from various formats." |
| 832 | (interactive) | 832 | (interactive) |
| 833 | 833 | ||
| 834 | (define-key menu-bar-files-menu [load-as-separator] '("--")) | 834 | (define-key menu-bar-file-menu [load-as-separator] '("--")) |
| 835 | 835 | ||
| 836 | (define-key menu-bar-files-menu [load-as] '("Load As..." . load-as)) | 836 | (define-key menu-bar-file-menu [load-as] '("Load As..." . load-as)) |
| 837 | (defvar load-as-menu-map (make-sparse-keymap "Load As...")) | 837 | (defvar load-as-menu-map (make-sparse-keymap "Load As...")) |
| 838 | (fset 'load-as load-as-menu-map) | 838 | (fset 'load-as load-as-menu-map) |
| 839 | 839 | ||
| 840 | ;;(define-key menu-bar-files-menu [insert-as] '("Insert As..." . insert-as)) | 840 | ;;(define-key menu-bar-file-menu [insert-as] '("Insert As..." . insert-as)) |
| 841 | (defvar insert-as-menu-map (make-sparse-keymap "Insert As...")) | 841 | (defvar insert-as-menu-map (make-sparse-keymap "Insert As...")) |
| 842 | (fset 'insert-as insert-as-menu-map) | 842 | (fset 'insert-as insert-as-menu-map) |
| 843 | 843 | ||
| 844 | (define-key menu-bar-files-menu [write-as] '("Write As..." . write-as)) | 844 | (define-key menu-bar-file-menu [write-as] '("Write As..." . write-as)) |
| 845 | (defvar write-as-menu-map (make-sparse-keymap "Write As...")) | 845 | (defvar write-as-menu-map (make-sparse-keymap "Write As...")) |
| 846 | (fset 'write-as write-as-menu-map) | 846 | (fset 'write-as write-as-menu-map) |
| 847 | 847 | ||
| 848 | (define-key menu-bar-files-menu [translate-separator] '("--")) | 848 | (define-key menu-bar-file-menu [translate-separator] '("--")) |
| 849 | 849 | ||
| 850 | (define-key menu-bar-files-menu [translate-to] '("Translate to..." . translate-to)) | 850 | (define-key menu-bar-file-menu [translate-to] '("Translate to..." . translate-to)) |
| 851 | (defvar translate-to-menu-map (make-sparse-keymap "Translate to...")) | 851 | (defvar translate-to-menu-map (make-sparse-keymap "Translate to...")) |
| 852 | (fset 'translate-to translate-to-menu-map) | 852 | (fset 'translate-to translate-to-menu-map) |
| 853 | 853 | ||
| 854 | (define-key menu-bar-files-menu [translate-from] '("Translate from..." . translate-from)) | 854 | (define-key menu-bar-file-menu [translate-from] '("Translate from..." . translate-from)) |
| 855 | (defvar translate-from-menu-map (make-sparse-keymap "Translate from...")) | 855 | (defvar translate-from-menu-map (make-sparse-keymap "Translate from...")) |
| 856 | (fset 'translate-from translate-from-menu-map) | 856 | (fset 'translate-from translate-from-menu-map) |
| 857 | 857 | ||