Mercurial > hg > xemacs-beta

comparison lisp/lisp-mnt.el @ 369:1d62742628b6 r21-1-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-14
author cvs
date Mon, 13 Aug 2007 11:01:51 +0200
parents 19dcec799385
children cc15677e0335
comparison
equal deleted inserted replaced
368:397a7324211a 369:1d62742628b6
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 befound in an RCS or SCCS header to crack it out of." 346 This can be found 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