Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
22fbcfe4
Commit
22fbcfe4
authored
Oct 08, 1996
by
David Kågedal
Browse files
* lyskom-buttons.el (lyskom-make-button-menu): Ny funktion.
(lyskom-mouse-3): Använd en keymap som meny.
parent
15ffc728
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
22fbcfe4
Tue Oct 8 03:55:40 1996 David Kgedal <kg@infovav.se>
* lyskom-buttons.el (lyskom-make-button-menu): Ny funktion.
(lyskom-mouse-3): Anvnd en keymap som meny.
Tue Oct 8 02:10:10 1996 Niels Mller <nisse@lysator.liu.se>
* menus.el : Ny fil. Menyer i lyskom-mode.
...
...
src/lyskom-buttons.el
View file @
22fbcfe4
...
...
@@ -119,8 +119,16 @@ on such functions see the documentation for lyskom-add-button-action."
;; This is here to pervent unwanted events when clicking mouse-3
(
interactive
"e"
))
(
defun
lyskom-make-button-menu
(
title
entries
)
"Create a menu keymap from a list of button actions."
;; Use the command as the event for simplicity.
(
append
(
list
'keymap
title
)
(
mapcar
'
(
lambda
(
entry
)
(
cons
(
cdr
(
cdr
entry
))
entry
))
entries
)))
(
defun
lyskom-mouse-3
(
pos
event
)
"Internal function used by kom-mouse-3"
(
setq
last-command-event
nil
)
(
let*
((
type
(
get-text-property
pos
'lyskom-button-type
))
(
arg
(
get-text-property
pos
'lyskom-button-arg
))
(
text
(
get-text-property
pos
'lyskom-button-text
))
...
...
@@ -136,26 +144,28 @@ on such functions see the documentation for lyskom-add-button-action."
(
cond
((
null
data
)
(
goto-char
pos
))
((
null
actl
)
(
goto-char
pos
))
((
null
buf
)
(
goto-char
pos
))
(
(
and
buf
(
null
(
get-buffer
buf
))
)
((
null
(
get-buffer
buf
))
(
lyskom-message
"%s"
(
lyskom-get-string
'no-such-buffer
)))
(
t
(
if
(
symbolp
title
)
(
setq
title
(
lyskom-get-string
title
)))
(
set-buffer
buf
)
;;
;; Using x-popup-menu is probably not the Right Thing
;; I looked in mouse.el for the mouse-major-mode-menu,
;; but it made Emacs abort when nothing was selected.
;;
(
let*
((
menu
(
cons
title
(
cons
(
cons
""
actl
)
nil
)))
(
result
(
x-popup-menu
event
menu
)))
;; There is a simple bug in x-popup-menu which causes menus
;; from simple keymaps to be title-less. A list consisting
;; of a single keymap works better. A patch is submittet to
;; the GNU folks. /davidk
(
let*
((
menu
(
lyskom-make-button-menu
title
actl
))
(
result
(
x-popup-menu
event
(
list
menu
)))
;; We trust that the menu is really simple.
(
command
(
car
result
))
)
;; If mouse-3 is bound to its default
;; mouse-save-than-kill, we will get an extra mouse event
;; when the user clicks to get a menu that stays up. So
;; we bind mouse-3 to a dummy function. Unfortunately it
;; doesn't work completely.
(
if
result
(
funcall
result
buf
arg
text
)))))))
(
if
command
(
funcall
command
buf
arg
text
)))))))
(
defun
lyskom-mouse-2
(
pos
)
...
...
src/swedish-strings.el
View file @
22fbcfe4
...
...
@@ -1545,7 +1545,7 @@ is generated while the command COMMAND is being executed, HINT is used as a
hint
for
a
new
default
action.
The
user
has
the
option
to
ignore
or
used
the
hint.
Also
see
the
function
\"kom-add-button-action\".
Also
see
the
function
\"
lys
kom-add-button-action\".
This
variable
is
not
saved
in
the
LysKOM
server.
")
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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