Mercurial > hg > xemacs-beta

comparison lisp/lisp-mnt.el @ 448:3078fd1074e8 r21-2-39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-39
author cvs
date Mon, 13 Aug 2007 11:38:25 +0200
parents 3ecd8885ac67
children 7039e6323819
comparison
equal deleted inserted replaced
447:4fc5f13f3bd3 448:3078fd1074e8
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