Mercurial > hg > xemacs-beta

comparison lisp/subr.el @ 5004:788c38f20376

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Do not assume #'format-decode exists in fileio.c. src/ChangeLog addition: 2010-02-07 Aidan Kehoe <kehoea@parhasard.net> * fileio.c (Finsert_file_contents_internal): Only call format-decode if it has a function binding. (build_annotations): Only call format-annotate-function if it has a function binding; incidentally only calling #'car-less-than-car if *it* has a function binding. (syms_of_fileio): #'car-less-than-car and #'cdr-less-than-cdr are now in Lisp. lisp/ChangeLog addition: 2010-02-07 Aidan Kehoe <kehoea@parhasard.net> * make-docfile.el (format-decode): Remove this temporary function definition, now we check the symbol is bound in fileio.c * version.el (format-decode): Ditto. * format.el (car-less-than-car, cdr-less-than-cdr): Move these here from fileio.c, now they are only called once format.el is available.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 07 Feb 2010 23:31:50 +0000
parents 755ae5b97edb
children 99f8ebc082d9
comparison
equal deleted inserted replaced
5003:6b6b0f8ab749 5004:788c38f20376
1775 'unevalled) 1775 'unevalled)
1776 ((null (subr-max-args subr)) 1776 ((null (subr-max-args subr))
1777 'many) 1777 'many)
1778 (t (subr-max-args subr))))) 1778 (t (subr-max-args subr)))))
1779 1779
1780 ;; XEmacs; move these here from C. Would be nice to drop them entirely, but
1781 ;; they're used reasonably often, since they've been around for a long time
1782 ;; and they're portable to GNU.
1783
1784 ;; Used in fileio.c if format-annotate-function has a function binding
1785 ;; (which it won't have before this file is loaded):
1786 (defun car-less-than-car (a b)
1787 "Return t if the car of A is numerically less than the car of B."
1788 (< (car a) (car b)))
1789
1790 ;; Used in packages.
1791 (defun cdr-less-than-cdr (a b)
1792 "Return t if (cdr A) is numerically less than (cdr B)."
1793 (< (cdr a) (cdr b)))
1794
1780 ;;; subr.el ends here 1795 ;;; subr.el ends here