Mercurial > emacs
comparison lisp/international/iso-acc.el @ 44450:5138658d1fea
(iso-accents-accent-key): Use `vector'
rather than char-to-string since last-input-char can be any event.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 08 Apr 2002 22:52:08 +0000 |
| parents | 60308a81bc07 |
| children | c4e0e965ce70 |
comparison
equal
deleted
inserted
replaced
| 44449:d43b78a12997 | 44450:5138658d1fea |
|---|---|
| 286 "Modify the following character by adding an accent to it." | 286 "Modify the following character by adding an accent to it." |
| 287 ;; Pick up the accent character. | 287 ;; Pick up the accent character. |
| 288 (if (and iso-accents-mode | 288 (if (and iso-accents-mode |
| 289 (memq last-input-char iso-accents-enable)) | 289 (memq last-input-char iso-accents-enable)) |
| 290 (iso-accents-compose prompt) | 290 (iso-accents-compose prompt) |
| 291 (char-to-string last-input-char))) | 291 (vector last-input-char))) |
| 292 | 292 |
| 293 (defun iso-accents-compose (prompt) | 293 (defun iso-accents-compose (prompt) |
| 294 (let* ((first-char last-input-char) | 294 (let* ((first-char last-input-char) |
| 295 (list (assq first-char iso-accents-list)) | 295 (list (assq first-char iso-accents-list)) |
| 296 ;; Wait for the second key and look up the combination. | 296 ;; Wait for the second key and look up the combination. |