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

src/menus.el

+;;;;;
+;;;;; $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))))
+