[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/buff-menu.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/buff-menu.el |
Date: |
Mon, 20 Feb 2006 00:56:31 +0000 |
Index: emacs/lisp/buff-menu.el
diff -u emacs/lisp/buff-menu.el:1.100 emacs/lisp/buff-menu.el:1.101
--- emacs/lisp/buff-menu.el:1.100 Mon Feb 6 14:33:32 2006
+++ emacs/lisp/buff-menu.el Mon Feb 20 00:56:31 2006
@@ -706,9 +706,9 @@
list desired-point)
(when Buffer-menu-use-header-line
(let ((pos 0))
- ;; Turn spaces in the header into stretch specs so they work
- ;; regardless of the header-line face.
- (while (string-match "[ \t]+" header pos)
+ ;; Turn whitespace chars in the header into stretch specs so
+ ;; they work regardless of the header-line face.
+ (while (string-match "[ \t\n]+" header pos)
(setq pos (match-end 0))
(put-text-property (match-beginning 0) pos 'display
;; Assume fixed-size chars in the buffer.
@@ -726,6 +726,7 @@
(erase-buffer)
(setq standard-output (current-buffer))
(unless Buffer-menu-use-header-line
+ ;; Use U+2014 (EM DASH) to underline if possible, else U+002D
(HYPHEN-MINUS)
(let ((underline (if (char-displayable-p ?â) ?â ?-)))
(insert header
(apply 'string