mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(list-buffers-noselect): Use explicit unicode code rather than the

Browse Source 
corresponding unicode char, to make the code more readable.
This commit is contained in:
Stefan Monnier 2007-02-19 15:46:25 +00:00
parent feade1681c
commit c822571ac0
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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)

7
lisp/buff-menu.el
View File

@ -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)