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
855eca56
Commit
855eca56
authored
Jun 18, 2001
by
Eli Zaretskii
Browse files
(bs--get-name, bs--get-file-name): Add help-echo to
mouse-highlighted text.
parent
cea2ad76
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
14 additions
and
2 deletions
+14
-2
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/bs.el
lisp/bs.el
+11
-2
No files found.
lisp/ChangeLog
View file @
855eca56
2001-06-18 Eli Zaretskii <eliz@is.elta.co.il>
* bs.el (bs--get-name, bs--get-file-name): Add help-echo to
mouse-highlighted text.
* dired.el (dired-mark-pop-up): Fix last change.
2001-06-17 Eli Zaretskii <eliz@is.elta.co.il>
...
...
lisp/bs.el
View file @
855eca56
...
...
@@ -1339,7 +1339,12 @@ for mouse highlighting.
START-BUFFER
is
the
buffer
where
we
started
buffer
selection.
ALL-BUFFERS
is
the
list
of
buffer
appearing
in
Buffer
Selection
Menu.
"
(let ((name (copy-sequence (buffer-name))))
(put-text-property 0 (length name) 'mouse-face 'highlight name)
(add-text-properties
0 (length name)
'(mouse-face highlight
help-echo
"
mouse-2:
select
this
buffer,
mouse-3:
select
in
other
frame
")
name)
(if (< (length name) bs--name-entry-length)
(concat name
(make-string (- bs--name-entry-length (length name)) ? ))
...
...
@@ -1362,7 +1367,11 @@ ALL-BUFFERS is the list of buffer appearing in Buffer Selection Menu."
'(shell-mode dired-mode))
default-directory
(or buffer-file-name "")))))
(put-text-property 0 (length string) 'mouse-face 'highlight string)
(add-text-properties
0 (length string)
'(mouse-face highlight
help-echo "
mouse-2:
select
this
buffer,
mouse-3:
select
in
other
frame
")
string)
string))
(defun bs--insert-one-entry (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