Mercurial > emacs
comparison lisp/double.el @ 91040:14c4a6aac623
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 866-879)
- Merge multi-tty branch
- Update from CVS
- Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-257
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 11 Oct 2007 16:14:00 +0000 |
| parents | 424b655804ca 5b644ae74c91 |
| children | 4bc33ffdda1a |
comparison
equal
deleted
inserted
replaced
| 91039:eefadc1e1d5e | 91040:14c4a6aac623 |
|---|---|
| 143 | 143 |
| 144 (defun double-setup (enable-flag) | 144 (defun double-setup (enable-flag) |
| 145 (if enable-flag | 145 (if enable-flag |
| 146 (progn | 146 (progn |
| 147 ;; Set up key-translation-map as indicated by `double-map'. | 147 ;; Set up key-translation-map as indicated by `double-map'. |
| 148 ;; XXX I don't think key-translation-map should be made local here. -- Lorentey | |
| 148 (kill-local-variable 'key-translation-map) | 149 (kill-local-variable 'key-translation-map) |
| 149 (make-local-variable 'key-translation-map) | 150 (make-local-variable 'key-translation-map) |
| 150 (setq key-translation-map (if (keymapp key-translation-map) | 151 (setq key-translation-map (if (keymapp key-translation-map) |
| 151 (copy-keymap key-translation-map) | 152 (copy-keymap key-translation-map) |
| 152 (make-sparse-keymap))) | 153 (make-sparse-keymap))) |
| 153 (mapcar (function (lambda (entry) | 154 (mapcar (function (lambda (entry) |
| 154 (define-key key-translation-map | 155 (define-key key-translation-map |
| 155 (vector (nth 0 entry)) | 156 (vector (nth 0 entry)) |
| 156 'double-translate-key))) | 157 'double-translate-key))) |
| 157 (append double-map '((magic-start) (magic-end))))) | 158 (append double-map '((magic-start) (magic-end))))) |