;; This mode is intended for use with languages that adds a small
;; number of extra letters not available on the keyboard.
-;;
+;;
;; Examples includes Scandinavian and German with an US keyboard.
;;
;; The idea is that certain keys are overloaded. When you press it
;; string will be replaced by another. This can be used for mapping
;; keys on a US keyboard to generate characters according to the local
;; keyboard convention when pressed once, and according to US keyboard
-;; convention when pressed twice.
+;; convention when pressed twice.
;;
;; To use this mode, you must define the variable `double-map' and
;; then enable double mode with `M-x double-mode'. Read the
(or (boundp 'isearch-mode-map)
(load-library "isearch"))
-(define-key isearch-mode-map [ignore]
+(define-key isearch-mode-map [ignore]
(function (lambda () (interactive) (isearch-update))))
(defun double-translate-key (prompt)
(let ((new (double-read-event prompt))
(entry (assoc double-last-event double-map)))
(if (eq new double-last-event)
- (progn
+ (progn
(setq unread-command-events
(append (make-list (1- (length (nth 1 entry)))
127)
(provide 'double)
+;;; arch-tag: 2e170036-44cb-4493-bc32-ada0a4395221
;;; double.el ends here