mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

(cl-map-keymap): Handle char-tables in keymaps.

Browse Source
This commit is contained in:
Stefan Monnier 2000-07-05 22:00:58 +00:00
parent 485266d0f7
commit 8d9f77f43c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/emacs-lisp/cl-extra.el
View File

@ -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 @@ 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)))))