emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el


From: Dave Love
Subject: [Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el
Date: Wed, 30 Apr 2003 18:50:34 -0400

Index: emacs/lisp/international/mule-diag.el
diff -c emacs/lisp/international/mule-diag.el:1.86 
emacs/lisp/international/mule-diag.el:1.87
*** emacs/lisp/international/mule-diag.el:1.86  Thu Feb 20 03:43:04 2003
--- emacs/lisp/international/mule-diag.el       Tue Apr  8 20:27:58 2003
***************
*** 760,765 ****
--- 760,769 ----
       )))
  
  ;; Print symbol name and mnemonic letter of CODING-SYSTEM with `princ'.
+ ;; If DOC-STRING is non-nil, print also the docstring of CODING-SYSTEM.
+ ;; If DOC-STRING is `tightly', don't print an empty line before the
+ ;; docstring, and print only the first line of the docstring.
+ 
  (defun print-coding-system-briefly (coding-system &optional doc-string)
    (if (not coding-system)
        (princ "nil\n")
***************
*** 780,789 ****
                        (not (eq coding-system (aref base-eol-type eol-type))))
                   (princ (format " (alias of %s)"
                                  (aref base-eol-type eol-type))))))))
!     (princ "\n\n")
!     (if (and doc-string
!            (setq doc-string (coding-system-doc-string coding-system)))
!       (princ (format "%s\n" doc-string)))))
  
  ;;;###autoload
  (defun describe-current-coding-system ()
--- 784,799 ----
                        (not (eq coding-system (aref base-eol-type eol-type))))
                   (princ (format " (alias of %s)"
                                  (aref base-eol-type eol-type))))))))
!     (princ "\n")
!     (or (eq doc-string 'tightly)
!       (princ "\n"))
!     (if doc-string
!       (let ((doc (or (coding-system-doc-string coding-system) "")))
!         (when (eq doc-string 'tightly)
!           (if (string-match "\n" doc)
!               (setq doc (substring doc 0 (match-beginning 0))))
!           (setq doc (concat "  " doc)))
!         (princ (format "%s\n" doc))))))
  
  ;;;###autoload
  (defun describe-current-coding-system ()
***************
*** 976,982 ****
  ###############################################
  # List of coding systems in the following format:
  # MNEMONIC-LETTER -- CODING-SYSTEM-NAME
! #     DOC-STRING
  ")
      (princ "\
  #########################
--- 986,992 ----
  ###############################################
  # List of coding systems in the following format:
  # MNEMONIC-LETTER -- CODING-SYSTEM-NAME
! #   DOC-STRING
  ")
      (princ "\
  #########################
***************
*** 1003,1016 ****
  ##  POST-READ-CONVERSION, PRE-WRITE-CONVERSION = function name to be called
  ##
  "))
!   (let ((bases (coding-system-list 'base-only))
!       coding-system)
!     (while bases
!       (setq coding-system (car bases))
!       (if (null arg)
!         (print-coding-system-briefly coding-system 'doc-string)
!       (print-coding-system coding-system))
!       (setq bases (cdr bases)))))
  
  ;;;###autoload
  (defun list-coding-categories ()
--- 1013,1022 ----
  ##  POST-READ-CONVERSION, PRE-WRITE-CONVERSION = function name to be called
  ##
  "))
!   (dolist (coding-system (sort-coding-systems (coding-system-list 
'base-only)))
!     (if (null arg)
!       (print-coding-system-briefly coding-system 'tightly)
!       (print-coding-system coding-system))))
  
  ;;;###autoload
  (defun list-coding-categories ()




reply via email to

[Prev in Thread] Current Thread [Next in Thread]