Mercurial > hg > xemacs-beta

comparison lisp/cl.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 8626e4521993
children 2f8bb876ab1d
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
678 678
679 ;; XEmacs change 679 ;; XEmacs change
680 ;(load "cl-defs") 680 ;(load "cl-defs")
681 681
682 ;;; Define data for indentation and edebug. 682 ;;; Define data for indentation and edebug.
683 (mapc 683 (mapcar
684 #'(lambda (entry) 684 #'(lambda (entry)
685 (mapc 685 (mapcar
686 #'(lambda (func) 686 #'(lambda (func)
687 (put func 'lisp-indent-function (nth 1 entry)) 687 (put func 'lisp-indent-function (nth 1 entry))
688 (put func 'lisp-indent-hook (nth 1 entry)) 688 (put func 'lisp-indent-hook (nth 1 entry))
689 (or (get func 'edebug-form-spec) 689 (or (get func 'edebug-form-spec)
690 (put func 'edebug-form-spec (nth 2 entry)))) 690 (put func 'edebug-form-spec (nth 2 entry))))