/[emacs]/emacs/lisp/international/iso-cvt.el
ViewVC logotype

Diff of /emacs/lisp/international/iso-cvt.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20.8.2 by miles, Tue Oct 14 23:39:23 2003 UTC revision 1.20.8.3 by miles, Fri Nov 12 04:21:14 2004 UTC
# Line 1  Line 1 
1  ;;; iso-cvt.el --- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*-  ;;; iso-cvt.el --- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*-
2  ;; This file was formerly called gm-lingo.el.  ;; This file was formerly called gm-lingo.el.
3    
4  ;; Copyright (C) 1993, 1994, 1995, 1996, 1998, 2000 Free Software Foundation, Inc.  ;; Copyright (C) 1993, 1994, 1995, 1996, 1998, 2000, 2003, 2004
5    ;;           Free Software Foundation, Inc.
6    
7  ;; Author: Michael Gschwind <mike@vlsivie.tuwien.ac.at>  ;; Author: Michael Gschwind <mike@vlsivie.tuwien.ac.at>
8  ;; Keywords: tex, iso, latin, i18n  ;; Keywords: tex, iso, latin, i18n
# Line 828  Optional arg BUFFER is ignored (for use Line 829  Optional arg BUFFER is ignored (for use
829    
830  ;;;###autoload  ;;;###autoload
831  (defun iso-cvt-define-menu ()  (defun iso-cvt-define-menu ()
832    "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."
833    (interactive)    (interactive)
834    
835    (define-key menu-bar-files-menu [load-as-separator] '("--"))    (let ((load-as-menu-map (make-sparse-keymap "Load As..."))
836            (insert-as-menu-map (make-sparse-keymap "Insert As..."))
837    (define-key menu-bar-files-menu [load-as] '("Load As..."  . load-as))          (write-as-menu-map (make-sparse-keymap "Write As..."))
838    (defvar load-as-menu-map (make-sparse-keymap "Load As..."))          (translate-to-menu-map (make-sparse-keymap "Translate to..."))
839    (fset 'load-as load-as-menu-map)          (translate-from-menu-map (make-sparse-keymap "Translate from..."))
840            (menu menu-bar-file-menu))
841    ;;(define-key menu-bar-files-menu [insert-as] '("Insert As..."  . insert-as))          
842    (defvar insert-as-menu-map (make-sparse-keymap "Insert As..."))      (define-key menu [load-as-separator] '("--"))
843    (fset 'insert-as insert-as-menu-map)  
844        (define-key menu [load-as] '("Load As..." . iso-cvt-load-as))
845    (define-key menu-bar-files-menu [write-as] '("Write As..."  . write-as))      (fset 'iso-cvt-load-as load-as-menu-map)
846    (defvar write-as-menu-map (make-sparse-keymap "Write As..."))  
847    (fset 'write-as write-as-menu-map)      ;;(define-key menu [insert-as] '("Insert As..." . iso-cvt-insert-as))
848        (fset 'iso-cvt-insert-as insert-as-menu-map)
849    (define-key menu-bar-files-menu [translate-separator] '("--"))  
850        (define-key menu [write-as] '("Write As..." . iso-cvt-write-as))
851    (define-key menu-bar-files-menu [translate-to] '("Translate to..."  . translate-to))      (fset 'iso-cvt-write-as write-as-menu-map)
852    (defvar translate-to-menu-map (make-sparse-keymap "Translate to..."))  
853    (fset 'translate-to translate-to-menu-map)      (define-key menu [translate-separator] '("--"))
854    
855    (define-key menu-bar-files-menu [translate-from] '("Translate from..."  . translate-from))      (define-key menu [translate-to] '("Translate to..." . iso-cvt-translate-to))
856    (defvar translate-from-menu-map (make-sparse-keymap "Translate from..."))      (fset 'iso-cvt-translate-to translate-to-menu-map)
857    (fset 'translate-from translate-from-menu-map)  
858        (define-key menu [translate-from] '("Translate from..." . iso-cvt-translate-from))
859    (let ((file-types (reverse format-alist))      (fset 'iso-cvt-translate-from translate-from-menu-map)
860          name  
861          str-name)      (dolist (file-type (reverse format-alist))
862      (while file-types        (let ((name (car file-type))
863        (setq name (car (car file-types))              (str-name (cadr file-type)))
864              str-name (car (cdr (car file-types)))          (if (stringp str-name)
865              file-types (cdr file-types))              (progn
866        (if (stringp str-name)                (define-key load-as-menu-map (vector name)
867            (progn                  (cons str-name
868              (define-key load-as-menu-map (vector name)                        `(lambda (file)
869                (cons str-name                           (interactive ,(format "FFind file (as %s): " name))
870                      `(lambda (file)                           (format-find-file file ',name))))
871                         (interactive (format "FFind file (as %s): " ,name))                (define-key insert-as-menu-map (vector name)
872                         (format-find-file file ',name))))                  (cons str-name
873              (define-key insert-as-menu-map (vector name)                        `(lambda (file)
874                (cons str-name                           (interactive (format "FInsert file (as %s): " ,name))
875                      `(lambda (file)                           (format-insert-file file ',name))))
876                         (interactive (format "FInsert file (as %s): " ,name))                (define-key write-as-menu-map (vector name)
877                         (format-insert-file file ',name))))                  (cons str-name
878              (define-key write-as-menu-map (vector name)                        `(lambda (file)
879                (cons str-name                           (interactive (format "FWrite file (as %s): " ,name))
880                      `(lambda (file)                           (format-write-file file ',name))))
881                         (interactive (format "FWrite file (as %s): " ,name))                (define-key translate-to-menu-map (vector name)
882                            (format-write-file file ',name))))                  (cons str-name
883              (define-key translate-to-menu-map (vector name)                        `(lambda ()
884                (cons str-name                           (interactive)
885                      `(lambda ()                           (format-encode-buffer ',name))))
886                         (interactive)                (define-key translate-from-menu-map (vector name)
887                            (format-encode-buffer ',name))))                  (cons str-name
888              (define-key translate-from-menu-map (vector name)                        `(lambda ()
889                (cons str-name                           (interactive)
890                      `(lambda ()                           (format-decode-buffer ',name))))))))))
                        (interactive)  
                        (format-decode-buffer ',name)))))))))  
891    
892  (provide 'iso-cvt)  (provide 'iso-cvt)
893    
894  ;;; arch-tag: 64ae843f-ed0e-43e1-ba50-ffd581b90840  ;; arch-tag: 64ae843f-ed0e-43e1-ba50-ffd581b90840
895  ;;; iso-cvt.el ends here  ;;; iso-cvt.el ends here

Legend:
Removed from v.1.20.8.2  
changed lines
  Added in v.1.20.8.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26