Mercurial > hg > xemacs-beta

comparison lisp/x11/x-win-xfree86.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
53 (bar (if (listp bar) bar (list bar)))) 53 (bar (if (listp bar) bar (list bar))))
54 (let ((mods '(() (control) (meta) (meta control)))) 54 (let ((mods '(() (control) (meta) (meta control))))
55 (while mods 55 (while mods
56 (let ((k1 (vector (append (car mods) foo))) 56 (let ((k1 (vector (append (car mods) foo)))
57 (k2 (vector (append (car mods) bar)))) 57 (k2 (vector (append (car mods) bar))))
58 (define-key global-map k1 k2)) 58 (define-key key-translation-map k1 k2))
59 (setq mods (cdr mods)))) 59 (setq mods (cdr mods))))
60 (setq mapping (cdr mapping))))) 60 (setq mapping (cdr mapping)))))