From: Stefan Monnier Date: Wed, 5 Jul 2000 22:00:58 +0000 (+0000) Subject: (cl-map-keymap): Handle char-tables in keymaps. X-Git-Tag: emacs-pretest-21.0.90~2939 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d9f77f43cce847c010bb63a8756dbf2d9154067;p=emacs.git (cl-map-keymap): Handle char-tables in keymaps. --- diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 1784d65a9b6..83f0ff717d0 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 ;; 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)))))