Mercurial > hg > xemacs-beta

comparison lisp/lisp-mnt.el @ 375:a300bb07d72d r21-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b3
author cvs
date Mon, 13 Aug 2007 11:04:51 +0200
parents cc15677e0335
children 8626e4521993
comparison
equal deleted inserted replaced
374:4ebeb1a5388b 375:a300bb07d72d
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 ) 410 end)
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 code (lm-section-mark "DESCRIP-END")) 419 (setq end (lm-section-mark "DESCRIP-END"))
420 (and commentary end (buffer-substring commentary code))))) 420 (and commentary end (buffer-substring commentary end)))))
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 bug-gnu-emacs) 563 (or (and (boundp 'report-emacs-bug-beta-address)
564 report-emacs-bug-beta-address)
565 "<xemacs-beta@xemacs.org>"))
564 topic) 566 topic)
565 (goto-char (point-max)) 567 (goto-char (point-max))
566 (insert "\nIn " 568 (insert "\nIn "
567 package 569 package
568 (if version (concat " version " version) "") 570 (if version (concat " version " version) "")