summaryrefslogtreecommitdiff
path: root/lisp/international/mule-diag.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/international/mule-diag.el')
-rw-r--r--lisp/international/mule-diag.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 6e2ff809cac..0a2e5a7c325 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -598,7 +598,7 @@ PC `codepages' and other coded character sets. See `non-iso-charset-alist'."
;;;###autoload
(defun describe-coding-system (coding-system)
"Display information about CODING-SYSTEM."
- (interactive "zDescribe coding system (default, current choices): ")
+ (interactive "zDescribe coding system (default current choices): ")
(if (null coding-system)
(describe-current-coding-system)
(help-setup-xref (list #'describe-coding-system coding-system)
@@ -1040,7 +1040,7 @@ but still contains full information about each coding system."
;;;###autoload
(defun describe-font (fontname)
"Display information about fonts which partially match FONTNAME."
- (interactive "sFontname (default, current choice for ASCII chars): ")
+ (interactive "sFontname (default current choice for ASCII chars): ")
(or (and window-system (fboundp 'fontset-list))
(error "No fontsets being used"))
(when (or (not fontname) (= (length fontname) 0))
@@ -1137,7 +1137,7 @@ This shows which font is used for which character(s)."
(mapcar 'cdr fontset-alias-alist)))
(completion-ignore-case t))
(list (completing-read
- "Fontset (default, used by the current frame): "
+ "Fontset (default used by the current frame): "
fontset-list nil t)))))
(if (= (length fontset) 0)
(setq fontset (frame-parameter nil 'font)))