Mercurial > hg > xemacs-beta

comparison lisp/lisp-mnt.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 1d62742628b6
children a300bb07d72d
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
341 (kill-buffer (current-buffer))) 341 (kill-buffer (current-buffer)))
342 ))) 342 )))
343 343
344 (defun lm-version (&optional file) 344 (defun lm-version (&optional file)
345 "Return the version listed in file FILE, or current buffer if FILE is nil. 345 "Return the version listed in file FILE, or current buffer if FILE is nil.
346 This can be found in an RCS or SCCS header to crack it out of." 346 This can befound in an RCS or SCCS header to crack it out of."
347 (save-excursion 347 (save-excursion
348 (if file 348 (if file
349 (find-file file)) 349 (find-file file))
350 (prog1 350 (prog1
351 (or 351 (or
405 (find-file file)) 405 (find-file file))
406 (prog1 406 (prog1
407 (let ((commentary (lm-commentary-mark)) 407 (let ((commentary (lm-commentary-mark))
408 (change-log (lm-history-mark)) 408 (change-log (lm-history-mark))
409 (code (lm-code-mark)) 409 (code (lm-code-mark))
410 end) 410 )
411 (cond 411 (cond
412 ((and commentary change-log) 412 ((and commentary change-log)
413 (buffer-substring commentary change-log)) 413 (buffer-substring commentary change-log))
414 ((and commentary code) 414 ((and commentary code)
415 (buffer-substring commentary code)) 415 (buffer-substring commentary code))
416 (t 416 (t
417 ;; XEmacs change (Infodock headers? -sb) 417 ;; XEmacs change (Infodock headers? -sb)
418 (setq commentary (lm-section-mark "DESCRIPTION" t)) 418 (setq commentary (lm-section-mark "DESCRIPTION" t)
419 (setq end (lm-section-mark "DESCRIP-END")) 419 code (lm-section-mark "DESCRIP-END"))
420 (and commentary end (buffer-substring commentary end))))) 420 (and commentary end (buffer-substring commentary code)))))
421 (if file 421 (if file
422 (kill-buffer (current-buffer))) 422 (kill-buffer (current-buffer)))
423 ))) 423 )))
424 424
425 ;;; Verification and synopses 425 ;;; Verification and synopses
558 (addr (lm-maintainer)) 558 (addr (lm-maintainer))
559 (version (lm-version))) 559 (version (lm-version)))
560 (mail nil 560 (mail nil
561 (if addr 561 (if addr
562 (concat (car addr) " <" (cdr addr) ">") 562 (concat (car addr) " <" (cdr addr) ">")
563 (or (and (boundp 'report-emacs-bug-beta-address) 563 bug-gnu-emacs)
564 report-emacs-bug-beta-address)
565 "<xemacs-beta@xemacs.org>"))
566 topic) 564 topic)
567 (goto-char (point-max)) 565 (goto-char (point-max))
568 (insert "\nIn " 566 (insert "\nIn "
569 package 567 package
570 (if version (concat " version " version) "") 568 (if version (concat " version " version) "")