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 |
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 |