Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
723:a65ddffa00a5 724:76d5a3dd827a
200 (cond ((and (< (length items) widget-menu-max-size) 200 (cond ((and (< (length items) widget-menu-max-size)
201 event 201 event
202 (console-on-window-system-p)) 202 (console-on-window-system-p))
203 ;; Pressed by the mouse. 203 ;; Pressed by the mouse.
204 (let ((val (get-popup-menu-response 204 (let ((val (get-popup-menu-response
205 (let ((menu-thingee
205 (cons title 206 (cons title
206 (mapcar (lambda (x) 207 (mapcar (lambda (x)
207 (if (stringp x) 208 (if (stringp x)
208 (vector x nil nil) 209 (vector x nil nil)
209 (vector (car x) (list (car x)) t))) 210 (vector (car x)
210 items))))) 211 (list (car x)) ; 'eval 'quote
212 t)))
213 items))
214 ))
215 (message "%s" menu-thingee)
216 menu-thingee)
217 )))
211 (setq val (and val 218 (setq val (and val
212 (listp (event-object val)) 219 (listp (event-object val))
213 (stringp (car-safe (event-object val))) 220 (stringp (car-safe (event-object val)))
214 (car (event-object val)))) 221 (car (event-object val))))
215 (cdr (assoc val items)))) 222 (cdr (assoc val items))))