emacs-diffs
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]