diff options
| author | Stefan Monnier | 2000-07-05 22:00:58 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-07-05 22:00:58 +0000 |
| commit | 8d9f77f43cce847c010bb63a8756dbf2d9154067 (patch) | |
| tree | 40b77719380a998c048163b5d6b61776e70ee452 | |
| parent | 485266d0f7dd739c2a62c2e6f498a780a1d3a649 (diff) | |
| download | emacs-8d9f77f43cce847c010bb63a8756dbf2d9154067.tar.gz emacs-8d9f77f43cce847c010bb63a8756dbf2d9154067.zip | |
(cl-map-keymap): Handle char-tables in keymaps.
| -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 1784d65a9b6..83f0ff717d0 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*- | 1 | ;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1993,2000 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Dave Gillespie <daveg@synaptics.com> | 5 | ;; Author: Dave Gillespie <daveg@synaptics.com> |
| 6 | ;; Keywords: extensions | 6 | ;; Keywords: extensions |
| @@ -217,7 +217,7 @@ If so, return the true (non-nil) value returned by PREDICATE." | |||
| 217 | (while (consp (setq cl-p (cdr cl-p))) | 217 | (while (consp (setq cl-p (cdr cl-p))) |
| 218 | (cond ((consp (car cl-p)) | 218 | (cond ((consp (car cl-p)) |
| 219 | (funcall cl-func (car (car cl-p)) (cdr (car cl-p)))) | 219 | (funcall cl-func (car (car cl-p)) (cdr (car cl-p)))) |
| 220 | ((vectorp (car cl-p)) | 220 | ((or (vectorp (car cl-p)) (char-table-p (car cl-p))) |
| 221 | (cl-map-keymap cl-func (car cl-p))) | 221 | (cl-map-keymap cl-func (car cl-p))) |
| 222 | ((eq (car cl-p) 'keymap) | 222 | ((eq (car cl-p) 'keymap) |
| 223 | (setq cl-p nil))))) | 223 | (setq cl-p nil))))) |