diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2014-02-24 03:38:54 +0100 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2014-02-24 03:38:54 +0100 |
| commit | 7d4bd627de08252c130f66858e486416878850e0 (patch) | |
| tree | bd989cbccff3cd36865364d36707f4a7831d3241 /lisp/apropos.el | |
| parent | e918e27fdf331e89268fc2c9d7cf838d3ecf7aa7 (diff) | |
| download | emacs-7d4bd627de08252c130f66858e486416878850e0.tar.gz emacs-7d4bd627de08252c130f66858e486416878850e0.tar.bz2 emacs-7d4bd627de08252c130f66858e486416878850e0.zip | |
lisp/apropos.el: Avoid formatting error in compact layout mode.
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 47e44485c62..2cba65e9559 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -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)) ") ")) |