procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/apropos.el: Avoid formatting error in compact layout mode.

Browse source
This commit is contained in:
Juanma Barranquero 2014-02-24 03:38:54 +01:00
parent e918e27fdf
commit 7d4bd627de
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2014-02-24 Juanma Barranquero <lekktu@gmail.com>
* apropos.el (apropos-print): Avoid formatting error when
apropos-do-all and apropos-compact-layout are both t.
2014-02-23 Juanma Barranquero <lekktu@gmail.com>
* apropos.el (apropos-property, apropos-all-words-regexp)

3
lisp/apropos.el
View file

@ -1052,6 +1052,7 @@ If non-nil, TEXT is a string that will be printed as a heading."
(let ((p apropos-accumulator)
(old-buffer (current-buffer))
(inhibit-read-only t)
(button-end 0)
symbol item)
(set-buffer standard-output)
(apropos-mode)
@ -1069,10 +1070,12 @@ If non-nil, TEXT is a string that will be printed as a heading."
(setq apropos-item
(cons (car apropos-item)
(cons nil (cdr apropos-item)))))
(when (= (point) button-end) (terpri))
(insert-text-button (symbol-name symbol)
'type 'apropos-symbol
'skip apropos-multi-type
'face 'apropos-symbol)
(setq button-end (point))
(if (and (eq apropos-sort-by-scores 'verbose)
(cadr apropos-item))
(insert " (" (number-to-string (cadr apropos-item)) ") "))