# HG changeset patch # User Juanma Barranquero # Date 1052242576 0 # Node ID 3a65ede5c70c36897da68a44538c4ad64e4f9ed8 # Parent 3f16391fbada80613a201b78b7f9535b790cb12c (eldoc-echo-area-use-multiline-p): Don't quote nil and t in docstrings. diff -r 3f16391fbada -r 3a65ede5c70c lisp/emacs-lisp/eldoc.el --- a/lisp/emacs-lisp/eldoc.el Tue May 06 17:35:37 2003 +0000 +++ b/lisp/emacs-lisp/eldoc.el Tue May 06 17:36:16 2003 +0000 @@ -7,7 +7,7 @@ ;; Keywords: extensions ;; 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. @@ -81,11 +81,11 @@ (defcustom eldoc-echo-area-use-multiline-p 'truncate-sym-name-if-fit "*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 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 single line without resizing window. Otherwise, behavior is just like former case. @@ -180,7 +180,7 @@ (defun eldoc-message (&rest args) (let ((omessage eldoc-last-message)) - (setq eldoc-last-message + (setq eldoc-last-message (cond ((eq (car args) eldoc-last-message) eldoc-last-message) ((null (car args)) nil) ;; If only one arg, no formatting to do, so put it in