# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 962834458 0
# Node ID afe9cfd77aef88767a9837120a3ad824a026797f
# Parent  7e9128a8782c0a162c26d3832aa9d12a609c2163
(cl-map-keymap): Handle char-tables in keymaps.

diff -r 7e9128a8782c -r afe9cfd77aef lisp/emacs-lisp/cl-extra.el
--- 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)))))