Skip to content
GitLab
Menu
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
9461a537
Commit
9461a537
authored
Oct 08, 1996
by
David Kågedal
Browse files
* menus.el (lyskom-background-menu): Ny funktion.
parent
9519212e
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/menus.el
View file @
9461a537
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
;;;;;
;;;;; This file is part of the LysKOM server.
;;;;;
;;;;; LysKOM is free software; you can redistribute it and/or modify it
;;;;; under the terms of the GNU General Public License as published by
;;;;; the Free Software Foundation; either version 2, or (at your option)
;;;;; any later version.
;;;;;
;;;;; LysKOM is distributed in the hope that it will be useful, but WITHOUT
;;;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
;;;;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
;;;;; for more details.
;;;;;
;;;;; You should have received a copy of the GNU General Public License
;;;;; along with LysKOM; see the file COPYING. If not, write to
;;;;; Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
;;;;; or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge,
;;;;; MA 02139, USA.
;;;;;
;;;;; Please mail bug reports to bug-lyskom@lysator.liu.se.
;;;;;
;;;; ================================================================
;;;; ================================================================
;;;;
;;;; File: menus.el
;;;; Author: Niels Mller
;;;;
;;;;
(
setq
lyskom-menus
'
((
menu
lyskom
((
menu
read
((
item
kom-view-next-text
)
...
...
@@ -28,7 +61,7 @@
(
item
kom-list-persons
)))))))
(
setq
lyskom-menu-names
'
((
lyskom
.
"Lys
kom
"
)
'
((
lyskom
.
"Lys
KOM
"
)
(
read
.
"Ls"
)
(
dont-read
.
"Hoppa"
)
(
write
.
"Skriv"
)
...
...
@@ -66,7 +99,16 @@
(
t
(
error
"Menu description invalid in lyskom-define-menu"
)))))
(
defun
lyskom-background-menu
(
pos
event
)
"Pop up a menu with LysKOM commands and execute the selected command."
(
let*
((
menu
(
lookup-key
lyskom-menu-map
[lyskom]
))
(
result
(
x-popup-menu
event
(
list
menu
)))
(
command
(
and
result
(
lookup-key
menu
(
apply
'vector
result
)))))
(
if
command
(
call-interactively
command
))))
...
...
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