Mercurial > hg > xemacs-beta

diff lisp/wid-edit.el @ 724:76d5a3dd827a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-01-05 07:33:11 by stephent] Pre-21.5.4 commit of stuff on notebook -- updated CHANGES-beta -- fix some slow startups - default with_ipv6_cname=no -- Stephen Turnbull -- Cygwin nox-xpm detection -- Charles Wilson -- eliminate bogus check for Athena widgets -- Alexey Mahotkin
author stephent
date Sat, 05 Jan 2002 07:33:24 +0000
parents 2cf5d151eeb9
children 79940b592197
line wrap: on
line diff
--- a/lisp/wid-edit.el	Fri Jan 04 19:53:34 2002 +0000
+++ b/lisp/wid-edit.el	Sat Jan 05 07:33:24 2002 +0000
@@ -202,12 +202,19 @@
 	      (console-on-window-system-p))
 	 ;; Pressed by the mouse.
 	 (let ((val (get-popup-menu-response
+		     (let ((menu-thingee
 		     (cons title
 			   (mapcar (lambda (x)
 				     (if (stringp x)
 					 (vector x nil nil)
-				       (vector (car x) (list (car x)) t)))
-				   items)))))
+				       (vector (car x)
+					       (list (car x))  ; 'eval 'quote
+					       t)))
+				   items))
+		     ))
+		       (message "%s" menu-thingee)
+		       menu-thingee)
+		     )))
 	   (setq val (and val
 			  (listp (event-object val))
 			  (stringp (car-safe (event-object val)))