Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-util.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children 9f59509498e1
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
143 (progn (forward-line ,(or n 1)) (point)))) 143 (progn (forward-line ,(or n 1)) (point))))
144 144
145 (defun gnus-byte-code (func) 145 (defun gnus-byte-code (func)
146 "Return a form that can be `eval'ed based on FUNC." 146 "Return a form that can be `eval'ed based on FUNC."
147 (let ((fval (symbol-function func))) 147 (let ((fval (symbol-function func)))
148 (if (byte-code-function-p fval) 148 (if (compiled-function-p fval)
149 (let ((flist (append fval nil))) 149 (let ((flist (append fval nil)))
150 (setcar flist 'byte-code) 150 (setcar flist 'byte-code)
151 flist) 151 flist)
152 (cons 'progn (cddr fval))))) 152 (cons 'progn (cddr fval)))))
153 153
456 If N, return the Nth ancestor instead." 456 If N, return the Nth ancestor instead."
457 (when references 457 (when references
458 (let ((ids (inline (gnus-split-references references)))) 458 (let ((ids (inline (gnus-split-references references))))
459 (car (last ids (or n 1)))))) 459 (car (last ids (or n 1))))))
460 460
461 (defun gnus-buffer-live-p (buffer) 461 (defsubst gnus-buffer-live-p (buffer)
462 "Say whether BUFFER is alive or not." 462 "Say whether BUFFER is alive or not."
463 (and buffer 463 (and buffer
464 (get-buffer buffer) 464 (get-buffer buffer)
465 (buffer-name (get-buffer buffer)))) 465 (buffer-name (get-buffer buffer))))
466 466