# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1171899985 0
# Node ID 70e00d4c121646ab1ce0f4883ffaeb1cbdc895d0
# Parent  e892213b9815ed9d56d954983efd242f08eac06f
(list-buffers-noselect): Use explicit unicode code rather than the
corresponding unicode char, to make the code more readable.

diff -r e892213b9815 -r 70e00d4c1216 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Feb 19 14:45:39 2007 +0000
+++ b/lisp/ChangeLog	Mon Feb 19 15:46:25 2007 +0000
@@ -1,3 +1,9 @@
+2007-02-19  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* buff-menu.el (list-buffers-noselect): Use explicit unicode code
+	rather than the corresponding unicode char, to make the code
+	more readable.
+
 2007-02-19  Juanma Barranquero  <lekktu@gmail.com>
 
 	* speedbar.el (speedbar-frame-mode, speedbar-frame-width)
diff -r e892213b9815 -r 70e00d4c1216 lisp/buff-menu.el
--- a/lisp/buff-menu.el	Mon Feb 19 14:45:39 2007 +0000
+++ b/lisp/buff-menu.el	Mon Feb 19 15:46:25 2007 +0000
@@ -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)