mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(eldoc-echo-area-use-multiline-p): Don't quote nil and t in docstrings.

Browse source
This commit is contained in:
Juanma Barranquero 2003-05-06 17:36:16 +00:00
parent 08815e25e5
commit 66d0d12c98
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/eldoc.el
View file

@ -7,7 +7,7 @@
;; Keywords: extensions ;; Keywords: extensions
;; Created: 1995-10-06 ;; Created: 1995-10-06
;; $Id: eldoc.el,v 1.23 2003/01/03 11:53:46 jpw Exp $ ;; $Id: eldoc.el,v 1.24 2003/02/11 00:11:55 monnier Exp $
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
@ -81,11 +81,11 @@ returns another string is acceptable."
(defcustom eldoc-echo-area-use-multiline-p 'truncate-sym-name-if-fit (defcustom eldoc-echo-area-use-multiline-p 'truncate-sym-name-if-fit
"*Allow long eldoc messages to resize echo area display. "*Allow long eldoc messages to resize echo area display.
If value is `t', never attempt to truncate messages; complete symbol name If value is t, never attempt to truncate messages; complete symbol name
and function arglist or 1-line variable documentation will be displayed and function arglist or 1-line variable documentation will be displayed
even if echo area must be resized to fit. even if echo area must be resized to fit.
If value is any non-nil value other than `t', symbol name may be truncated If value is any non-nil value other than t, symbol name may be truncated
if it will enable the function arglist or documentation string to fit on a if it will enable the function arglist or documentation string to fit on a
single line without resizing window. Otherwise, behavior is just like single line without resizing window. Otherwise, behavior is just like
former case. former case.
@ -180,7 +180,7 @@ With prefix ARG, turn ElDoc mode on if and only if ARG is positive."
(defun eldoc-message (&rest args) (defun eldoc-message (&rest args)
(let ((omessage eldoc-last-message)) (let ((omessage eldoc-last-message))
(setq eldoc-last-message (setq eldoc-last-message
(cond ((eq (car args) eldoc-last-message) eldoc-last-message) (cond ((eq (car args) eldoc-last-message) eldoc-last-message)
((null (car args)) nil) ((null (car args)) nil)
;; If only one arg, no formatting to do, so put it in ;; If only one arg, no formatting to do, so put it in