[Emacs-diffs] Changes to emacs/lisp/double.el

[Miles Bader]

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)