Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-gwp.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 8619ce7e4c50
children
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-gwp.el 4 ;; File: efs-gwp.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.2 $ 6 ;; Version: #Revision: 1.1 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: Support for efs to use an interactive gateway. 8 ;; Description: Support for efs to use an interactive gateway.
9 ;; Author: Andy Norman, Dawn 9 ;; Author: Andy Norman, Dawn
10 ;; Created: Thu Mar 18 13:03:14 1993 10 ;; Created: Thu Mar 18 13:03:14 1993
11 ;; Modified: Sun Nov 27 18:31:50 1994 by sandy on gandalf 11 ;; Modified: Sun Nov 27 18:31:50 1994 by sandy on gandalf
75 ;;; Internal Variables 75 ;;; Internal Variables
76 76
77 (defconst efs-gwp-version 77 (defconst efs-gwp-version
78 (concat (substring "$efs release: 1.15 $" 14 -2) 78 (concat (substring "$efs release: 1.15 $" 14 -2)
79 "/" 79 "/"
80 (substring "$Revision: 1.2 $" 11 -2))) 80 (substring "#Revision: 1.1 $" 11 -2)))
81 81
82 (defvar efs-gwp-running t) 82 (defvar efs-gwp-running t)
83 (defvar efs-gwp-status nil) 83 (defvar efs-gwp-status nil)
84 (defvar efs-gwp-string "") 84 (defvar efs-gwp-string "")
85 85