Mercurial > hg > xemacs-beta

comparison lisp/make-docfile.el @ 5125:b5df3737028a ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Wed, 24 Feb 2010 01:58:04 -0600
parents 788c38f20376
children e402e3506a53
comparison
equal deleted inserted replaced
5124:623d57b7fbe8 5125:b5df3737028a
75 (if (null done) 75 (if (null done)
76 (setq command-line-args (cdr (cdr command-line-args))))))) 76 (setq command-line-args (cdr (cdr command-line-args)))))))
77 (setq options (nreverse options)) 77 (setq options (nreverse options))
78 78
79 ;; (message (concat "Options: " (prin1-to-string options))) 79 ;; (message (concat "Options: " (prin1-to-string options)))
80
81 ;; insert-file-contents-internal calls out to `format-decode' afterwards,
82 ;; so it must be defined. if non-zero, it tries to do a bunch more stuff
83 ;; so say, "NOOOOOOOOOOOOO! Basta! Ca soufit! Enough, already, OK?"
84 (defun format-decode (fuck me harder) 0)
85 80
86 ;; Next process the list of C files. 81 ;; Next process the list of C files.
87 (defun process-args (args) 82 (defun process-args (args)
88 (while args 83 (while args
89 (let ((arg (car args))) 84 (let ((arg (car args)))