/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

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

revision 1.179 by fx, Sat Dec 15 17:42:33 2001 UTC revision 1.180 by rms, Wed Dec 19 16:33:06 2001 UTC
# Line 1606  of buffer-file-coding-system set by this Line 1606  of buffer-file-coding-system set by this
1606              (when (string= language-name (nth 1 (car l)))              (when (string= language-name (nth 1 (car l)))
1607                (insert "  " (car (car l)))                (insert "  " (car (car l)))
1608                (search-backward (car (car l)))                (search-backward (car (car l)))
1609                (help-xref-button 0 #'describe-input-method (car (car l))                (help-xref-button 0 'help-input-method (car (car l)))
                                 "mouse-2, RET: describe this input method")  
1610                (goto-char (point-max))                (goto-char (point-max))
1611                (insert " (\""                (insert " (\""
1612                        (if (stringp (nth 3 (car l)))                        (if (stringp (nth 3 (car l)))
# Line 1623  of buffer-file-coding-system set by this Line 1622  of buffer-file-coding-system set by this
1622              (while l              (while l
1623                (insert "  " (symbol-name (car l)))                (insert "  " (symbol-name (car l)))
1624                (search-backward (symbol-name (car l)))                (search-backward (symbol-name (car l)))
1625                (help-xref-button 0 #'describe-character-set (car l)                (help-xref-button 0 'help-character-set (car l))
                                 "mouse-2, RET: describe this character set")  
1626                (goto-char (point-max))                (goto-char (point-max))
1627                (insert ": " (charset-description (car l)) "\n")                (insert ": " (charset-description (car l)) "\n")
1628                (setq l (cdr l)))))                (setq l (cdr l)))))
# Line 1636  of buffer-file-coding-system set by this Line 1634  of buffer-file-coding-system set by this
1634              (while l              (while l
1635                (insert "  " (symbol-name (car l)))                (insert "  " (symbol-name (car l)))
1636                (search-backward (symbol-name (car l)))                (search-backward (symbol-name (car l)))
1637                (help-xref-button 0 #'describe-coding-system (car l)                (help-xref-button 0 'help-coding-system (car l))
                                 "mouse-2, RET: describe this coding system")  
1638                (goto-char (point-max))                (goto-char (point-max))
1639                (insert " (`"                (insert " (`"
1640                        (coding-system-mnemonic (car l))                        (coding-system-mnemonic (car l))

Legend:
Removed from v.1.179  
changed lines
  Added in v.1.180

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