Mercurial > hg > xemacs-beta

diff lisp/efs/efs-ovwrt.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8b8b7f3559a2
children 15872534500d
line wrap: on
line diff
--- a/lisp/efs/efs-ovwrt.el	Mon Aug 13 09:21:56 2007 +0200
+++ b/lisp/efs/efs-ovwrt.el	Mon Aug 13 09:23:06 2007 +0200
@@ -3,7 +3,7 @@
 ;;
 ;; File:         efs-ovwrt.el
 ;; Release:      $efs release: 1.15 $
-;; Version:      $Revision: 1.2 $
+;; Version:      #Revision: 1.2 $
 ;; RCS:
 ;; Description:  Utilities for overwriting functions with new definitions.
 ;; Author:       Andy Norman <ange@hplb.hpl.hp.com>
@@ -15,11 +15,15 @@
 ;;; makes it easier for other programs to require them.
 
 (provide 'efs-ovwrt)
+(eval-when-compile
+  (condition-case nil
+      (require 'advice)
+    (error)))
 
 (defconst efs-ovwrt-version
   (concat (substring "$efs release: 1.15 $" 14 -2)
 	  "/"
-	  (substring "$Revision: 1.2 $" 11 -2)))
+	  (substring "#Revision: 1.2 $" 11 -2)))
 
 (defvar efs-overwrite-fmt
   "Note: This function has been modified to work with %s.")