[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/iso-cvt.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/iso-cvt.el |
Date: |
Sat, 06 Nov 2004 23:21:07 -0500 |
Index: emacs/lisp/international/iso-cvt.el
diff -c emacs/lisp/international/iso-cvt.el:1.22
emacs/lisp/international/iso-cvt.el:1.23
*** emacs/lisp/international/iso-cvt.el:1.22 Mon Sep 1 15:45:28 2003
--- emacs/lisp/international/iso-cvt.el Sun Nov 7 04:08:15 2004
***************
*** 828,857 ****
;;;###autoload
(defun iso-cvt-define-menu ()
! "Add submenus to the Files menu, to convert to and from various formats."
(interactive)
! (define-key menu-bar-files-menu [load-as-separator] '("--"))
! (define-key menu-bar-files-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))
(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))
(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-files-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))
(defvar translate-from-menu-map (make-sparse-keymap "Translate from..."))
(fset 'translate-from translate-from-menu-map)
--- 828,857 ----
;;;###autoload
(defun iso-cvt-define-menu ()
! "Add submenus to the File menu, to convert to and from various formats."
(interactive)
! (define-key menu-bar-file-menu [load-as-separator] '("--"))
! (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-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-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-file-menu [translate-separator] '("--"))
! (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-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)
- [Emacs-diffs] Changes to emacs/lisp/international/iso-cvt.el,
Richard M . Stallman <=