Mercurial > hg > xemacs-beta
diff lisp/x-iso8859-1.el @ 380:8626e4521993 r21-2-5
Import from CVS: tag r21-2-5
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:07:10 +0200 |
parents | 41ff10fd062f |
children | 74fd4e045ea6 |
line wrap: on
line diff
--- a/lisp/x-iso8859-1.el Mon Aug 13 11:06:08 2007 +0200 +++ b/lisp/x-iso8859-1.el Mon Aug 13 11:07:10 2007 +0200 @@ -44,7 +44,7 @@ ;; keys are bound to one-character keyboard macros, so that `kp-9' will, by ;; default, do the same thing that `9' does, in whatever the current mode is. -;; The standard case and syntax tables are set in prim/iso8859-1.el, since +;; The standard case and syntax tables are set in iso8859-1.el, since ;; that is not X-specific. ;;; Code: @@ -71,16 +71,16 @@ ;; the keysym symbols. ;; (mapcar '(lambda (sym-and-code) - (list 'put (list 'quote (car sym-and-code)) - ''x-iso8859/1 (car (cdr sym-and-code)))) + (list 'put (list 'quote (car sym-and-code)) + ''x-iso8859/1 (car (cdr sym-and-code)))) syms-and-iso8859/1-codes) ;; ;; Then emit code that binds all of those keysym symbols to ;; `self-insert-command'. ;; (mapcar '(lambda (sym-and-code) - (list 'global-set-key (list 'quote (car sym-and-code)) - ''self-insert-command)) + (list 'global-set-key (list 'quote (car sym-and-code)) + ''self-insert-command)) syms-and-iso8859/1-codes) ;; ;; Then emit the value of iso8859/1-code-to-x-keysym-table. @@ -96,8 +96,8 @@ '((8 backspace) (9 tab) (10 linefeed) (13 return) (27 escape) (32 space) (127 delete))) (mapcar '(lambda (sym-and-code) - (or (aref v (car (cdr sym-and-code))) - (aset v (car (cdr sym-and-code)) (car sym-and-code)))) + (or (aref v (car (cdr sym-and-code))) + (aset v (car (cdr sym-and-code)) (car sym-and-code)))) syms-and-iso8859/1-codes) (list (list 'setq 'iso8859/1-code-to-x-keysym-table v))) )))) @@ -211,8 +211,8 @@ ((macro . (lambda (&rest syms-and-iso8859/1-codes) (cons 'progn (mapcar '(lambda (sym-and-code) - (list 'put (list 'quote (car sym-and-code)) - ''x-iso8859/1 (car (cdr sym-and-code)))) + (list 'put (list 'quote (car sym-and-code)) + ''x-iso8859/1 (car (cdr sym-and-code)))) syms-and-iso8859/1-codes)))) ;; ;; Let's do the appropriate thing for some vendor-specific keysyms too...