Commit 9461a537 authored by David Kågedal's avatar David Kågedal
Browse files

* menus.el (lyskom-background-menu): Ny funktion.

parent 9519212e
;;;;;
;;;;; $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 . "Lyskom")
'((lyskom . "LysKOM")
(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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment