[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/double.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/double.el |
Date: |
Tue, 04 Feb 2003 06:07:08 -0500 |
Index: emacs/lisp/double.el
diff -c emacs/lisp/double.el:1.16 emacs/lisp/double.el:1.17
*** emacs/lisp/double.el:1.16 Fri Sep 6 03:12:37 2002
--- emacs/lisp/double.el Tue Feb 4 06:07:08 2003
***************
*** 26,32 ****
;; 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
--- 26,32 ----
;; 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
***************
*** 34,40 ****
;; 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.
;;
;; To use this mode, you must define the variable `double-map' and
;; then enable double mode with `M-x double-mode'. Read the
--- 34,40 ----
;; 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.
;;
;; To use this mode, you must define the variable `double-map' and
;; then enable double mode with `M-x double-mode'. Read the
***************
*** 99,105 ****
(or (boundp 'isearch-mode-map)
(load-library "isearch"))
! (define-key isearch-mode-map [ignore]
(function (lambda () (interactive) (isearch-update))))
(defun double-translate-key (prompt)
--- 99,105 ----
(or (boundp 'isearch-mode-map)
(load-library "isearch"))
! (define-key isearch-mode-map [ignore]
(function (lambda () (interactive) (isearch-update))))
(defun double-translate-key (prompt)
***************
*** 117,123 ****
(let ((new (double-read-event prompt))
(entry (assoc double-last-event double-map)))
(if (eq new double-last-event)
! (progn
(setq unread-command-events
(append (make-list (1- (length (nth 1 entry)))
127)
--- 117,123 ----
(let ((new (double-read-event prompt))
(entry (assoc double-last-event double-map)))
(if (eq new double-last-event)
! (progn
(setq unread-command-events
(append (make-list (1- (length (nth 1 entry)))
127)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/double.el,
Juanma Barranquero <=