Mercurial > hg > xemacs-beta

comparison lisp/cl.el @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
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))))