diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-02-19 15:46:25 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-02-19 15:46:25 +0000 |
| commit | c822571ac0c6cbd75ce3981da03513774a254375 (patch) | |
| tree | 1b337804307ba13161711d456cbb3fce086ac9ce /lisp/buff-menu.el | |
| parent | feade1681c2ee2f332030c7e384c19d81e2355cf (diff) | |
| download | emacs-c822571ac0c6cbd75ce3981da03513774a254375.tar.gz emacs-c822571ac0c6cbd75ce3981da03513774a254375.tar.bz2 emacs-c822571ac0c6cbd75ce3981da03513774a254375.zip | |
(list-buffers-noselect): Use explicit unicode code rather than the
corresponding unicode char, to make the code more readable.
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index d67173ce733..f1336a417b9 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -721,7 +721,7 @@ For more information, see the function `buffer-menu'." (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 @@ For more information, see the function `buffer-menu'." (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) |