Mercurial > hg > xemacs-beta
annotate lisp/hash-table.el @ 5371:6f10ac29bf40
Be better about searching for chars typed via XIM and x-compose.el, isearch
lisp/ChangeLog addition:
2011-03-12 Aidan Kehoe <kehoea@parhasard.net>
* isearch-mode.el (isearch-mode-map):
Document why we bind the ASCII characters to isearch-printing-char
in more detail.
* isearch-mode.el (isearch-maybe-frob-keyboard-macros):
If `this-command' is nil and the keys typed would normally be
bound to `self-insert-command' in the global map, force
`isearch-printing-char' to be called with an appropriate value for
last-command-event. Addresses an issue where searching for
characters generated from x-compose.el and XIM threw errors for me
in dired.
src/ChangeLog addition:
2011-03-12 Aidan Kehoe <kehoea@parhasard.net>
* event-stream.c (Fdispatch_event):
As documented, allow pre-command-hook to usefully modify
this-command even when this-command is nil (that is, we would
normally throw an undefined-keystroke-sequence error). Don't throw
that error if this-command was modified, instead try to execute
the new value.
Allow pre-command-hook to modify last-command-event in this
specific context. Don't document this, for the moment.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sat, 12 Mar 2011 13:11:31 +0000 |
parents | 2def0d83a5e3 |
children | 308d34e9f07d |
rev | line source |
---|---|
502 | 1 ;;; hash-table.el --- hash-table utility functions |
2 | |
3 ;; Copyright (C) 2000 Ben Wing. | |
4 | |
5 ;; Author: Ben Wing | |
6 ;; Maintainer: XEmacs Development Team | |
7 ;; Keywords: internal, dumped | |
8 | |
9 ;; This file is part of XEmacs. | |
10 | |
11 ;; XEmacs is free software; you can redistribute it and/or modify it | |
12 ;; under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; XEmacs is distributed in the hope that it will be useful, but | |
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
19 ;; General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with XEmacs; see the file COPYING. If not, write to the | |
23 ;; Free Software Foundation, 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
25 | |
26 ;;; Synched up with: Not in FSF. | |
27 | |
28 ;;; Authorship: | |
29 | |
30 ;; Created July 2000 by Ben Wing. | |
31 | |
32 ;;; Commentary: | |
33 | |
34 ;; This file is dumped with XEmacs. | |
35 | |
36 ;;; Code: | |
37 | |
38 (defun hash-table-key-list (hash-table) | |
39 "Return a list of all keys in HASH-TABLE." | |
5271
2def0d83a5e3
Don't uselessly call #'nreverse, #'hash-table-key-list and friends.
Aidan Kehoe <kehoea@parhasard.net>
parents:
502
diff
changeset
|
40 (let (list) |
2def0d83a5e3
Don't uselessly call #'nreverse, #'hash-table-key-list and friends.
Aidan Kehoe <kehoea@parhasard.net>
parents:
502
diff
changeset
|
41 (maphash #'(lambda (key value) (push key list)) hash-table) |
2def0d83a5e3
Don't uselessly call #'nreverse, #'hash-table-key-list and friends.
Aidan Kehoe <kehoea@parhasard.net>
parents:
502
diff
changeset
|
42 list)) |
502 | 43 |
44 (defun hash-table-value-list (hash-table) | |
45 "Return a list of all values in HASH-TABLE." | |
5271
2def0d83a5e3
Don't uselessly call #'nreverse, #'hash-table-key-list and friends.
Aidan Kehoe <kehoea@parhasard.net>
parents:
502
diff
changeset
|
46 (let (list) |
2def0d83a5e3
Don't uselessly call #'nreverse, #'hash-table-key-list and friends.
Aidan Kehoe <kehoea@parhasard.net>
parents:
502
diff
changeset
|
47 (maphash #'(lambda (key value) (push value list)) hash-table) |
2def0d83a5e3
Don't uselessly call #'nreverse, #'hash-table-key-list and friends.
Aidan Kehoe <kehoea@parhasard.net>
parents:
502
diff
changeset
|
48 list)) |
502 | 49 |
50 (defun hash-table-key-value-alist (hash-table) | |
51 "Return an alist of (KEY . VALUE) for all keys and values in HASH-TABLE." | |
5271
2def0d83a5e3
Don't uselessly call #'nreverse, #'hash-table-key-list and friends.
Aidan Kehoe <kehoea@parhasard.net>
parents:
502
diff
changeset
|
52 (let (list) |
2def0d83a5e3
Don't uselessly call #'nreverse, #'hash-table-key-list and friends.
Aidan Kehoe <kehoea@parhasard.net>
parents:
502
diff
changeset
|
53 (maphash #'(lambda (key value) (setq list (acons key value list))) |
502 | 54 hash-table) |
5271
2def0d83a5e3
Don't uselessly call #'nreverse, #'hash-table-key-list and friends.
Aidan Kehoe <kehoea@parhasard.net>
parents:
502
diff
changeset
|
55 list)) |
502 | 56 |
57 (defun hash-table-key-value-plist (hash-table) | |
58 "Return a plist for all keys and values in HASH-TABLE. | |
59 A plist is a simple list containing alternating keys and values." | |
5271
2def0d83a5e3
Don't uselessly call #'nreverse, #'hash-table-key-list and friends.
Aidan Kehoe <kehoea@parhasard.net>
parents:
502
diff
changeset
|
60 (let (list) |
2def0d83a5e3
Don't uselessly call #'nreverse, #'hash-table-key-list and friends.
Aidan Kehoe <kehoea@parhasard.net>
parents:
502
diff
changeset
|
61 (maphash #'(lambda (key value) (setq list (list* key value list))) |
502 | 62 hash-table) |
5271
2def0d83a5e3
Don't uselessly call #'nreverse, #'hash-table-key-list and friends.
Aidan Kehoe <kehoea@parhasard.net>
parents:
502
diff
changeset
|
63 list)) |