Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d19e23ae
Commit
d19e23ae
authored
Nov 06, 2009
by
Chong Yidong
Browse files
* buff-menu.el (Buffer-menu-buffer+size): Use display property to
align size column (Bug#4839).
parent
0ad57dfd
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
11 additions
and
7 deletions
+11
-7
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/buff-menu.el
lisp/buff-menu.el
+8
-7
No files found.
lisp/ChangeLog
View file @
d19e23ae
2009-11-06 Chong Yidong <cyd@stupidchicken.com>
* buff-menu.el (Buffer-menu-buffer+size): Use display property to
align size column (Bug#4839).
* emacs-lisp/autoload.el (autoload-rubric): Always issue a provide
statement.
...
...
lisp/buff-menu.el
View file @
d19e23ae
...
...
@@ -678,12 +678,13 @@ For more information, see the function `buffer-menu'."
(
setq
name
(
copy-sequence
name
)))
(
add-text-properties
0
(
length
name
)
name-props
name
)
(
add-text-properties
0
(
length
size
)
size-props
size
)
(
concat
name
(
make-string
(
-
Buffer-menu-buffer+size-width
(
string-width
name
)
(
string-width
size
))
?\s
)
size
))
(
let
((
name+space-width
(
-
Buffer-menu-buffer+size-width
(
string-width
size
))))
(
concat
name
(
propertize
(
make-string
(
-
name+space-width
(
string-width
name
))
?\s
)
'display
`
(
space
:align-to
,
(
+
4
name+space-width
)))
size
)))
(
defun
Buffer-menu-sort
(
column
)
"Sort the buffer menu by COLUMN."
...
...
@@ -889,7 +890,7 @@ For more information, see the function `buffer-menu'."
;; This way we avoid problems with unusual buffer names.
(
let
((
name
(
nth
2
buffer
))
(
size
(
int-to-string
(
nth
3
buffer
))))
(
Buffer-menu-buffer+size
name
size
(
Buffer-menu-buffer+size
name
size
`
(
buffer-name
,
name
buffer
,
(
car
buffer
)
font-lock-face
buffer-menu-buffer
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment