home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / browser2.zip / br-rev.el < prev    next >
Lisp/Scheme  |  1995-02-17  |  629b  |  21 lines
  1. ;;; /* This part is only seen by the C compiler. */
  2. ;;;
  3. ;;; char* revision = "$Revision: 3.1 $";
  4. ;;; char* copyright = "Copyright (C) 1993, 1994 Gerd Möllmann. All rights reserved.";
  5. ;;;
  6. ;;; /* end cfasl. The rest is only seen by the Lisp compiler...
  7.  
  8. (defun browse-revision ()
  9.   "Return the current revision number."
  10.   (let ((s "$Revision: 3.1 $"))
  11.     (and (string-match "[0-9.]+" s)
  12.      (substring s (match-beginning 0) (match-end 0)))))
  13.  
  14. (defun browse-copyright ()
  15.   "Return the copyright notice."
  16.   "Copyright (C) 1993, 1994 Gerd Möllmann. All rights reserved.")
  17.  
  18. (provide 'br-rev)
  19.  
  20. ;;; end of the file */
  21.