Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-kerberos.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 8fc7fe29b841
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-efs-kerberos.el 4 ;; File: efs-kerberos.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.1 $ 6 ;; Version: $Revision: 1.0 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: Support for Kerberos gateways. 8 ;; Description: Support for Kerberos gateways.
9 ;; Author: Sandy Rutherford <sandy@gandalf.sissa.it> 9 ;; Author: Sandy Rutherford <sandy@gandalf.sissa.it>
10 ;; Created: Thu Nov 24 21:19:25 1994 by sandy on gandalf 10 ;; Created: Thu Nov 24 21:19:25 1994 by sandy on gandalf
11 ;; Modified: 11 ;; Modified:
19 (require 'efs) 19 (require 'efs)
20 20
21 (defconst efs-kerberos-version 21 (defconst efs-kerberos-version
22 (concat (substring "$efs release: 1.15 $" 14 -2) 22 (concat (substring "$efs release: 1.15 $" 14 -2)
23 "/" 23 "/"
24 (substring "$Revision: 1.1 $" 11 -2))) 24 (substring "$Revision: 1.0 $" 11 -2)))
25 25
26 ;;; Internal Variables 26 ;;; Internal Variables
27 27
28 (defvar efs-kerberos-passwd-sent nil) 28 (defvar efs-kerberos-passwd-sent nil)
29 ;; Set to t after the passwd has been sent. 29 ;; Set to t after the passwd has been sent.