/[emacs]/emacs/lisp/emacs-lisp/eldoc.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/eldoc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by monnier, Tue Feb 11 00:11:55 2003 UTC revision 1.25 by lektu, Tue May 6 17:36:16 2003 UTC
# Line 81  returns another string is acceptable." Line 81  returns another string is acceptable."
81    
82  (defcustom eldoc-echo-area-use-multiline-p 'truncate-sym-name-if-fit  (defcustom eldoc-echo-area-use-multiline-p 'truncate-sym-name-if-fit
83    "*Allow long eldoc messages to resize echo area display.    "*Allow long eldoc messages to resize echo area display.
84  If value is `t', never attempt to truncate messages; complete symbol name  If value is t, never attempt to truncate messages; complete symbol name
85  and function arglist or 1-line variable documentation will be displayed  and function arglist or 1-line variable documentation will be displayed
86  even if echo area must be resized to fit.  even if echo area must be resized to fit.
87    
88  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
89  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
90  single line without resizing window.  Otherwise, behavior is just like  single line without resizing window.  Otherwise, behavior is just like
91  former case.  former case.
# Line 180  With prefix ARG, turn ElDoc mode on if a Line 180  With prefix ARG, turn ElDoc mode on if a
180    
181  (defun eldoc-message (&rest args)  (defun eldoc-message (&rest args)
182    (let ((omessage eldoc-last-message))    (let ((omessage eldoc-last-message))
183      (setq eldoc-last-message      (setq eldoc-last-message
184            (cond ((eq (car args) eldoc-last-message) eldoc-last-message)            (cond ((eq (car args) eldoc-last-message) eldoc-last-message)
185                  ((null (car args)) nil)                  ((null (car args)) nil)
186                  ;; If only one arg, no formatting to do, so put it in                  ;; If only one arg, no formatting to do, so put it in

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26