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. |
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 |