From 0d6e23cfa7121bec41cafcedafe51ea7835af233 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 12 Mar 2000 15:34:37 +0000 Subject: [PATCH] (completion-setup-function): Use display-color-p. --- lisp/ChangeLog | 36 ++++++++++++++++++++++++++++++++---- lisp/simple.el | 2 +- 2 files changed, 33 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 62c1c78e2a5..8a8c73aed8b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,29 @@ +2000-03-12 Dave Love + + * facemenu.el (facemenu-get-face): Use display-color-p. + * enriched.el (enriched-decode-foreground): Likewise. + (enriched-decode-background): Likewise. + * isearch.el (isearch-highlight): Likewise. + * info-look.el (info-lookup): Likewise. + * simple.el (completion-setup-function): Likewise. + + * textmodes/text-mode.el (text-mode-hook): Add flyspell-mode to + :options. + + * bindings.el (mode-line-format): Fix line-number and + column-number items. Add help-echo for the background. + (mode-line-mule-info): Modify help-echo. + + * avoid.el (mouse-avoidance-mode): Add autoload cookie to + defcustom. + + * files.el (load-file): Allow completion to .elc. + + * man.el: Doc fixes. + (Man-init-defvars): Use display-color-p to set fontification. + + * play/hanoi.el (hanoi-internal): Don't use oddp. + 2000-03-12 Gerd Moellmann * arc-mode.el (archive-zip-update): Add `-P' for pkzip. @@ -36,10 +62,12 @@ 2000-03-09 Stefan Monnier - * emacs-lisp/easy-mmode.el (easy-mmode-define-keymap): Extend to allow - more flexibility. - (easy-mmode-set-keymap-parents, easy-mmode-define-syntax): New funs. - (easy-mmode-def(map|syntax|ine-derived-mode)): New macros. + * emacs-lisp/easy-mmode.el (easy-mmode-define-keymap): Extend to + allow more flexibility. + (easy-mmode-set-keymap-parents, easy-mmode-define-syntax): New + fns. + (easy-mmode-defmap, easy-mmode-defsyntax) + (easy-mmode-define-derived-mode): New macros. 2000-03-09 Didier Verna diff --git a/lisp/simple.el b/lisp/simple.el index a7d8b480952..17bc9e70e36 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3924,7 +3924,7 @@ The completion list buffer is available as the value of `standard-output'.") (buffer-name mainbuf)) (setq completion-base-size 0)))) (goto-char (point-min)) - (if window-system + (if (display-mouse-p) (insert (substitute-command-keys "Click \\[mouse-choose-completion] on a completion to select it.\n"))) (insert (substitute-command-keys -- 2.39.5