[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog international/mule-diag.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog international/mule-diag.el |
Date: |
Thu, 04 Dec 2008 15:23:58 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Juanma Barranquero <lektu> 08/12/04 15:23:57
Modified files:
lisp : ChangeLog
lisp/international: mule-diag.el
Log message:
* international/mule-diag.el (list-character-sets): Doc fix.
(list-character-sets-2): Fix info in header. Simplify.
(print-coding-system): Simplify.
(list-input-methods-1): Simplify.
(mule-diag): Display current font/fontset for all window systems,
not just X. Simplify.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.14911&r2=1.14912
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-diag.el?cvsroot=emacs&r1=1.120&r2=1.121
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.14911
retrieving revision 1.14912
diff -u -b -r1.14911 -r1.14912
--- ChangeLog 4 Dec 2008 07:03:53 -0000 1.14911
+++ ChangeLog 4 Dec 2008 15:23:54 -0000 1.14912
@@ -1,3 +1,12 @@
+2008-12-04 Juanma Barranquero <address@hidden>
+
+ * international/mule-diag.el (list-character-sets): Doc fix.
+ (list-character-sets-2): Fix info in header. Simplify.
+ (print-coding-system): Simplify.
+ (list-input-methods-1): Simplify.
+ (mule-diag): Display current font/fontset for all window systems,
+ not just X. Simplify.
+
2008-12-04 Glenn Morris <address@hidden>
* vc-cvs.el (vc-cvs-register-switches): Doc fix. Add t as option.
Index: international/mule-diag.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/international/mule-diag.el,v
retrieving revision 1.120
retrieving revision 1.121
diff -u -b -r1.120 -r1.121
--- international/mule-diag.el 3 Dec 2008 16:17:52 -0000 1.120
+++ international/mule-diag.el 4 Dec 2008 15:23:57 -0000 1.121
@@ -63,7 +63,7 @@
set. The FINAL-CHAR column contains an ISO-2022 <final-char> to use
for designating this character set in ISO-2022-based coding systems.
-With prefix arg, the output format gets more cryptic,
+With prefix ARG, the output format gets more cryptic,
but still shows the full information."
(interactive "P")
(help-setup-xref (list #'list-character-sets arg) (interactive-p))
@@ -175,16 +175,13 @@
## The following attributes are listed in this order
## separated by a colon `:' in one line.
## CHARSET-SYMBOL-NAME,
-## DIMENSION (1 or 2)
-## CHARS (94 or 96)
+## DIMENSION (1-4)
+## CHARS (number of characters in first dimension of charset)
## ISO-FINAL-CHAR (character code of ISO-2022's final character)
## -1 means that no final character is assigned.
## DESCRIPTION (describing string of the charset)
")
- (let ((l charset-list)
- charset)
- (while l
- (setq charset (car l) l (cdr l))
+ (dolist (charset charset-list)
(princ (format "%s:%d:%d:%d:%s\n"
charset
(charset-dimension charset)
@@ -193,7 +190,7 @@
;;; (charset-direction charset)
(charset-iso-final-char charset)
;;; (charset-iso-graphic-plane charset)
- (charset-description charset))))))
+ (charset-description charset)))))
(defvar non-iso-charset-alist nil
"Obsolete.")
@@ -690,11 +687,9 @@
(if (not (eq (car aliases) coding-system))
(princ (format "%s (alias of %s)\n" coding-system (car aliases)))
(princ coding-system)
- (setq aliases (cdr aliases))
- (while aliases
+ (dolist (alias (cdr aliases))
(princ ",")
- (princ (car aliases))
- (setq aliases (cdr aliases)))
+ (princ alias))
(princ (format ":%s:%c:%d:"
type
(coding-system-mnemonic coding-system)
@@ -997,19 +992,17 @@
(defun list-input-methods-1 ()
(if (not input-method-alist)
- (progn
(princ "
No input method is available, perhaps because you have not
-installed LEIM (Libraries of Emacs Input Methods)."))
+installed LEIM (Libraries of Emacs Input Methods).")
(princ "LANGUAGE\n NAME (`TITLE' in mode line)\n")
(princ " SHORT-DESCRIPTION\n------------------------------\n")
(setq input-method-alist
(sort input-method-alist
(lambda (x y) (string< (nth 1 x) (nth 1 y)))))
- (let ((l input-method-alist)
- language elt)
- (while l
- (setq elt (car l) l (cdr l))
+
+ (let (language)
+ (dolist (elt input-method-alist)
(when (not (equal language (nth 1 elt)))
(setq language (nth 1 elt))
(princ language)
@@ -1020,9 +1013,7 @@
(if (and (consp title) (stringp (car title)))
(car title)
title))
- (let ((description (nth 4 elt)))
- (string-match ".*" description)
- (match-string 0 description))))))))
+ (nth 4 elt)))))))
;;; DIAGNOSIS
@@ -1072,7 +1063,7 @@
(insert "Terminal: " (getenv "TERM")))
(insert "\n\n")
- (if (eq window-system 'x)
+ (if window-system
(let ((font (cdr (assq 'font (frame-parameters)))))
(insert "The selected frame is using the "
(if (query-fontset font) "fontset" "font")
@@ -1101,10 +1092,8 @@
(insert-section 6 "Fontsets")
(insert "Fontset-Name\t\t\t\t\t\t WDxHT Style\n")
(insert "------------\t\t\t\t\t\t ----- -----\n")
- (let ((fontsets (fontset-list)))
- (while fontsets
- (print-fontset (car fontsets) t)
- (setq fontsets (cdr fontsets)))))
+ (dolist (fontset (fontset-list))
+ (print-fontset fontset t)))
(print-help-return-message))))
;;;###autoload