Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 4907:9e7f5a77cc84

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Mon, 01 Feb 2010 01:05:28 -0600
parents 755ae5b97edb
children d6368048cd8c
comparison
equal deleted inserted replaced
4906:6ef8256a020a 4907:9e7f5a77cc84
1412 (t " function")))) 1412 (t " function"))))
1413 string))))) 1413 string)))))
1414 (cond ((or (stringp def) (vectorp def)) 1414 (cond ((or (stringp def) (vectorp def))
1415 (princ "a keyboard macro.") 1415 (princ "a keyboard macro.")
1416 (setq kbd-macro-p t)) 1416 (setq kbd-macro-p t))
1417 ((special-form-p fndef) 1417 ((special-operator-p fndef)
1418 (funcall int "built-in special form" nil 'neither)) 1418 (funcall int "built-in special operator" nil 'neither))
1419 ((subrp fndef) 1419 ((subrp fndef)
1420 (funcall int "built-in" nil macrop)) 1420 (funcall int "built-in" nil macrop))
1421 ((compiled-function-p fndef) 1421 ((compiled-function-p fndef)
1422 (funcall int "compiled Lisp" nil macrop)) 1422 (funcall int "compiled Lisp" nil macrop))
1423 ((eq (car-safe fndef) 'lambda) 1423 ((eq (car-safe fndef) 'lambda)