diff options
| author | Stefan Monnier <[email protected]> | 2000-07-05 22:00:58 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2000-07-05 22:00:58 +0000 |
| commit | 8d9f77f43cce847c010bb63a8756dbf2d9154067 (patch) | |
| tree | 40b77719380a998c048163b5d6b61776e70ee452 /lisp/emacs-lisp/cl-extra.el | |
| parent | 485266d0f7dd739c2a62c2e6f498a780a1d3a649 (diff) | |
(cl-map-keymap): Handle char-tables in keymaps.
Diffstat (limited to 'lisp/emacs-lisp/cl-extra.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 1784d65a9b..83f0ff717d 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -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 <[email protected]> ;; Keywords: extensions @@ -217,7 +217,7 @@ If so, return the true (non-nil) value returned by PREDICATE." (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))))) |