858 |
(define-key menu [translate-from] '("Translate from..." . iso-cvt-translate-from)) |
(define-key menu [translate-from] '("Translate from..." . iso-cvt-translate-from)) |
859 |
(fset 'iso-cvt-translate-from translate-from-menu-map) |
(fset 'iso-cvt-translate-from translate-from-menu-map) |
860 |
|
|
861 |
(dolist ((file-type (reverse format-alist))) |
(dolist (file-type (reverse format-alist)) |
862 |
(let ((name (car file-type)) |
(let ((name (car file-type)) |
863 |
(str-name (cadr file-type))) |
(str-name (cadr file-type))) |
864 |
(if (stringp str-name) |
(if (stringp str-name) |