Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-ovwrt.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents 7e54bd776075
children 15872534500d
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-ovwrt.el 4 ;; File: efs-ovwrt.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.2 $ 6 ;; Version: #Revision: 1.2 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: Utilities for overwriting functions with new definitions. 8 ;; Description: Utilities for overwriting functions with new definitions.
9 ;; Author: Andy Norman <ange@hplb.hpl.hp.com> 9 ;; Author: Andy Norman <ange@hplb.hpl.hp.com>
10 ;; 10 ;;
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13 ;;; Although used by efs, these utilities could be of general use to other 13 ;;; Although used by efs, these utilities could be of general use to other
14 ;;; packages too. Keeping them separate from the main efs program 14 ;;; packages too. Keeping them separate from the main efs program
15 ;;; makes it easier for other programs to require them. 15 ;;; makes it easier for other programs to require them.
16 16
17 (provide 'efs-ovwrt) 17 (provide 'efs-ovwrt)
18 (eval-when-compile
19 (condition-case nil
20 (require 'advice)
21 (error)))
18 22
19 (defconst efs-ovwrt-version 23 (defconst efs-ovwrt-version
20 (concat (substring "$efs release: 1.15 $" 14 -2) 24 (concat (substring "$efs release: 1.15 $" 14 -2)
21 "/" 25 "/"
22 (substring "$Revision: 1.2 $" 11 -2))) 26 (substring "#Revision: 1.2 $" 11 -2)))
23 27
24 (defvar efs-overwrite-fmt 28 (defvar efs-overwrite-fmt
25 "Note: This function has been modified to work with %s.") 29 "Note: This function has been modified to work with %s.")
26 30
27 ;; Make the byte compiler happy. 31 ;; Make the byte compiler happy.