Mercurial > hg > xemacs-beta

comparison lisp/symbols.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 74fd4e045ea6
children
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
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 (make-event)) 127 (setq event (allocate-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))