Mercurial > hg > xemacs-beta

comparison lisp/symbols.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents d44af0c54775
children 697ef44129c6 7039e6323819
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
122 122
123 (defun mvh-char-to-event-set-value (sym value setfun getfun args harg) 123 (defun mvh-char-to-event-set-value (sym value setfun getfun args harg)
124 (let ((event (apply getfun harg args))) 124 (let ((event (apply getfun harg args)))
125 (if (event-live-p event) 125 (if (event-live-p event)
126 nil 126 nil
127 (setq event (allocate-event)) 127 (setq event (make-event))
128 (apply setfun harg event args)) 128 (apply setfun harg event args))
129 (character-to-event value event))) 129 (character-to-event value event)))
130 130
131 (defun mvh-char-to-event-other-predicate (sym fun args harg) 131 (defun mvh-char-to-event-other-predicate (sym fun args harg)
132 (apply fun harg args)) 132 (apply fun harg args))