pestctrl/emacs
1
0
Fork 0
forked from Github/emacs
Code Issues Pull requests Projects Releases Packages Wiki Activity

(tooltip-show-help-non-mode): Set message-truncate-lines

Browse source 
to t and don't truncate msg.
This commit is contained in:
Jan Djärv 2008-04-11 06:43:56 +00:00
parent d463476b15
commit 5ca2bc08c5
2 changed files with 9 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-04-11 Jan Djärv <jan.h.d@swipnet.se>
* tooltip.el (tooltip-show-help-non-mode): Set message-truncate-lines
to t and don't truncate msg.
2008-04-11 Glenn Morris <rgm@gnu.org>
* calendar/calendar.el (diary, holidays):

17
lisp/tooltip.el
View file

@ -316,21 +316,12 @@ the buffer of PROCESS."
(defvar tooltip-help-message nil
"The last help message received via `tooltip-show-help'.")
(defun tooltip-trunc-str (str maxlen pieces)
(let ((s (car pieces)))
(if (and pieces (< (+ (length str) (length s) 2) maxlen))
(tooltip-trunc-str (concat str
(if (> (length str) 0) ", " "")
s)
maxlen (cdr pieces))
(if (> (length str) 0) str s))))
(defun tooltip-show-help-non-mode (msg)
"Function installed as `show-help-function' when tooltip is off."
(message "%s" (if msg
(tooltip-trunc-str "" (frame-parameter nil 'width)
(split-string msg "\n" t))
"")))
(let ((message-truncate-lines t))
(message "%s" (if msg
(replace-regexp-in-string "\n" ", " msg)
""))))
(defun tooltip-show-help (msg)
"Function installed as `show-help-function'.