[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/eldoc.el

[Juanma Barranquero]

Index: emacs/lisp/emacs-lisp/eldoc.el
diff -c emacs/lisp/emacs-lisp/eldoc.el:1.24 emacs/lisp/emacs-lisp/eldoc.el:1.25
*** emacs/lisp/emacs-lisp/eldoc.el:1.24 Mon Feb 10 19:11:55 2003
--- emacs/lisp/emacs-lisp/eldoc.el      Tue May  6 13:36:16 2003
***************
*** 7,13 ****
  ;; Keywords: extensions
  ;; Created: 1995-10-06
  
! ;; $Id: eldoc.el,v 1.24 2003/02/11 00:11:55 monnier Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 7,13 ----
  ;; Keywords: extensions
  ;; Created: 1995-10-06
  
! ;; $Id: eldoc.el,v 1.25 2003/05/06 17:36:16 lektu Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 81,91 ****
  
  (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
  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 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.
--- 81,91 ----
  
  (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
  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 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,186 ****
  
  (defun eldoc-message (&rest args)
    (let ((omessage 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
--- 180,186 ----
  
  (defun eldoc-message (&rest args)
    (let ((omessage 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