Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-x19.15.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 4be1180a9e89
children 9f59509498e1
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-x19.15.el 4 ;; File: efs-x19.15.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.2 $ 6 ;; Version: $Revision: 1.3 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: efs support for XEmacs, versions 19.15, and later. 8 ;; Description: efs support for XEmacs, versions 19.15, and later.
9 ;; Author: Sandy Rutherford <sandy@ibm550.sissa.it> 9 ;; Author: Sandy Rutherford <sandy@ibm550.sissa.it>
10 ;; Created: Tue Aug 2 17:40:32 1994 by sandy on ibm550 10 ;; Created: Tue Aug 2 17:40:32 1994 by sandy on ibm550
11 ;; Modified: by Mike Sperber
12 ;; 11 ;;
13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14 13
15 (provide 'efs-x19\.15) 14 (provide 'efs-x19\.15)
16 (require 'efs-cu) 15 (require 'efs-cu)
17 (require 'default-dir)
18 (require 'efs-ovwrt) 16 (require 'efs-ovwrt)
19 17
20 (defconst efs-x19\.15-version 18 (defconst efs-x19\.15-version
21 (concat (substring "$efs release: 1.15 $" 14 -2) 19 (concat (substring "$efs release: 1.15 $" 14 -2)
22 "/" 20 "/"
23 (substring "$Revision: 1.2 $" 11 -2))) 21 (substring "$Revision: 1.3 $" 11 -2)))
24 22
25 ;;; Functions requiring special defs. for these XEmacs versions. 23 ;;; Functions requiring special defs. for these XEmacs versions.
26 24
27 (defun efs-abbreviate-file-name (filename &optional hack-homedir) 25 (defun efs-abbreviate-file-name (filename &optional hack-homedir)
28 ;; XEmacs version of abbreviate-file-name for remote files. 26 ;; XEmacs version of abbreviate-file-name for remote files.