[Emacs-diffs] Changes to emacs/lisp/buff-menu.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        07/02/19 15:46:26

Index: buff-menu.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/buff-menu.el,v
retrieving revision 1.105
retrieving revision 1.106
diff -u -b -r1.105 -r1.106
--- buff-menu.el        21 Jan 2007 03:53:12 -0000      1.105
+++ buff-menu.el        19 Feb 2007 15:46:25 -0000      1.106
@@ -721,7 +721,7 @@
       (put-text-property 0 3 'face 'fixed-pitch header)
       ;; Add a "dummy" leading space to align the beginning of the header
       ;; line with the beginning of the text (rather than with the left
-      ;; scrollbar or the left fringe).  –-Stef
+      ;; scrollbar or the left fringe).  --Stef
       (setq header (concat (propertize " " 'display '(space :align-to 0))
                           header)))
     (with-current-buffer (get-buffer-create "*Buffer List*")
@@ -729,8 +729,9 @@
       (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 ?—) ?— ?-)))
+        ;; Use U+2014 (EM DASH) to underline if possible, else use ASCII
+        ;; (i.e. U+002D, HYPHEN-MINUS).
+       (let ((underline (if (char-displayable-p ?\u2014) ?\u2014 ?-)))
          (insert header
                  (apply 'string
                         (mapcar (lambda (c)