diff options
| author | Gerd Moellmann | 2001-10-29 15:44:21 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-10-29 15:44:21 +0000 |
| commit | f6f4bfb3d5a4efaf78a0d263160634f653fe11ed (patch) | |
| tree | 041d2c81942e64a9d846d628c0c69a52709778bb | |
| parent | 9a7bdceb5d48b6d06ad0a1299ef11774c5a7b96a (diff) | |
| download | emacs-f6f4bfb3d5a4efaf78a0d263160634f653fe11ed.tar.gz emacs-f6f4bfb3d5a4efaf78a0d263160634f653fe11ed.zip | |
(iso-accents-compose): Push SECOND-CHAR
as is on unread-command-events instead of `(SECOND-CHAR)'.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/international/iso-acc.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aba51ea930d..6ccf7bff72e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2001-10-29 Gerd Moellmann <gerd@gnu.org> | ||
| 2 | |||
| 3 | * international/iso-acc.el (iso-accents-compose): Push SECOND-CHAR | ||
| 4 | as is on unread-command-events instead of `(SECOND-CHAR)'. | ||
| 5 | |||
| 1 | 2001-10-29 Andre Spiegel <spiegel@gnu.org> | 6 | 2001-10-29 Andre Spiegel <spiegel@gnu.org> |
| 2 | 7 | ||
| 3 | * vc.el: Mention vc-*-switches in backend API documentation. | 8 | * vc.el: Mention vc-*-switches in backend API documentation. |
diff --git a/lisp/international/iso-acc.el b/lisp/international/iso-acc.el index b265b5815e7..220a6b604f3 100644 --- a/lisp/international/iso-acc.el +++ b/lisp/international/iso-acc.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; iso-acc.el --- minor mode providing electric accent keys | 1 | ;;; iso-acc.el --- minor mode providing electric accent keys |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1994, 1996 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1993, 1994, 1996, 2001 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Johan Vromans | 5 | ;; Author: Johan Vromans |
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
| @@ -319,7 +319,7 @@ the language you choose)." | |||
| 319 | entry)) | 319 | entry)) |
| 320 | ;; Otherwise, advance and schedule the second key for execution. | 320 | ;; Otherwise, advance and schedule the second key for execution. |
| 321 | (setq unread-command-events | 321 | (setq unread-command-events |
| 322 | (cons (list second-char) unread-command-events)) | 322 | (push second-char unread-command-events)) |
| 323 | (vector first-char)))) | 323 | (vector first-char)))) |
| 324 | 324 | ||
| 325 | ;; It is a matter of taste if you want the minor mode indicated | 325 | ;; It is a matter of taste if you want the minor mode indicated |