Mercurial > emacs
changeset 30086:afe9cfd77aef
(cl-map-keymap): Handle char-tables in keymaps.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 05 Jul 2000 22:00:58 +0000 |
| parents | 7e9128a8782c |
| children | 1b5db0f1b8b7 |
| files | lisp/emacs-lisp/cl-extra.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-extra.el Wed Jul 05 20:04:27 2000 +0000 +++ b/lisp/emacs-lisp/cl-extra.el Wed Jul 05 22:00:58 2000 +0000 @@ -1,6 +1,6 @@ ;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*- -;; Copyright (C) 1993 Free Software Foundation, Inc. +;; Copyright (C) 1993,2000 Free Software Foundation, Inc. ;; Author: Dave Gillespie <daveg@synaptics.com> ;; Keywords: extensions @@ -217,7 +217,7 @@ (while (consp (setq cl-p (cdr cl-p))) (cond ((consp (car cl-p)) (funcall cl-func (car (car cl-p)) (cdr (car cl-p)))) - ((vectorp (car cl-p)) + ((or (vectorp (car cl-p)) (char-table-p (car cl-p))) (cl-map-keymap cl-func (car cl-p))) ((eq (car cl-p) 'keymap) (setq cl-p nil)))))