[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lucid.el

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/lucid.el
diff -c emacs/lisp/emacs-lisp/lucid.el:1.29 emacs/lisp/emacs-lisp/lucid.el:1.30
*** emacs/lisp/emacs-lisp/lucid.el:1.29 Thu Apr 11 23:25:00 2002
--- emacs/lisp/emacs-lisp/lucid.el      Sat May  3 20:34:16 2003
***************
*** 31,36 ****
--- 31,39 ----
  
  (defalias 'current-time-seconds 'current-time)
  
+ ;; In case cl-map-keymap is an alias for map-keymap, avoid circular calls.
+ (fset 'cl-map-keymap (indirect-function 'cl-map-keymap))
+ 
  (defun map-keymap (function keymap &optional sort-first)
    "Call FUNCTION for every binding in KEYMAP.
  This does not include bindings inherited from a parent keymap.