Mercurial > emacs
changeset 76023:70e00d4c1216
(list-buffers-noselect): Use explicit unicode code rather than the
corresponding unicode char, to make the code more readable.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 19 Feb 2007 15:46:25 +0000 |
| parents | e892213b9815 |
| children | 00669875e4fe |
| files | lisp/ChangeLog lisp/buff-menu.el |
| diffstat | 2 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)
--- 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)