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

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

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

revision 1.64 by rms, Tue Dec 18 21:14:28 2001 UTC revision 1.65 by wl, Thu Dec 20 21:32:26 2001 UTC
# Line 675  which font is being used for displaying Line 675  which font is being used for displaying
675                       (interactive-p))                       (interactive-p))
676      (with-output-to-temp-buffer (help-buffer)      (with-output-to-temp-buffer (help-buffer)
677        (print-coding-system-briefly coding-system 'doc-string)        (print-coding-system-briefly coding-system 'doc-string)
678          (princ "\n")
679        (let ((coding-spec (coding-system-spec coding-system)))        (let ((coding-spec (coding-system-spec coding-system)))
680          (princ "Type: ")          (princ "Type: ")
681          (let ((type (coding-system-type coding-system))          (let ((type (coding-system-type coding-system))
# Line 814  at the place of `..': Line 815  at the place of `..':
815                (princ (format " %S" (cons 'alias: (cdr aliases)))))                (princ (format " %S" (cons 'alias: (cdr aliases)))))
816          (if (memq coding-system aliases)          (if (memq coding-system aliases)
817              (princ (format " (alias of %s)" (car aliases))))))              (princ (format " (alias of %s)" (car aliases))))))
818      (princ "\n")      (princ "\n\n")
819      (if (and doc-string      (if (and doc-string
820               (setq doc-string (coding-system-doc-string coding-system)))               (setq doc-string (coding-system-doc-string coding-system)))
821          (princ (format "  %s\n" doc-string)))))          (princ (format "%s\n" doc-string)))))
822    
823  ;;;###autoload  ;;;###autoload
824  (defun describe-current-coding-system ()  (defun describe-current-coding-system ()

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65

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