comparison lisp/net/netrc.el @ 95624:164c226d4a0d

Remove unnecessary eval-when-compiles and eval-and-compiles.
author Glenn Morris <rgm@gnu.org>
date Sat, 07 Jun 2008 02:39:43 +0000
parents d90ff358ee27
children fa1e1238846b
comparison
equal deleted inserted replaced
95623:5358d3f9137d 95624:164c226d4a0d
32 ;;; 32 ;;;
33 ;;; .netrc and .authinfo rc parsing 33 ;;; .netrc and .authinfo rc parsing
34 ;;; 34 ;;;
35 35
36 ;; use encrypt if loaded (encrypt-file-alist has to be set as well) 36 ;; use encrypt if loaded (encrypt-file-alist has to be set as well)
37 (eval-and-compile 37 (autoload 'encrypt-find-model "encrypt")
38 (autoload 'encrypt-find-model "encrypt") 38 (autoload 'encrypt-insert-file-contents "encrypt")
39 (autoload 'encrypt-insert-file-contents "encrypt"))
40 (defalias 'netrc-point-at-eol 39 (defalias 'netrc-point-at-eol
41 (if (fboundp 'point-at-eol) 40 (if (fboundp 'point-at-eol)
42 'point-at-eol 41 'point-at-eol
43 'line-end-position)) 42 'line-end-position))
43 (defvar encrypt-file-alist)
44 (eval-when-compile 44 (eval-when-compile
45 (defvar encrypt-file-alist)
46 ;; This is unnecessary in the compiled version as it is a macro. 45 ;; This is unnecessary in the compiled version as it is a macro.
47 (if (fboundp 'bound-and-true-p) 46 (if (fboundp 'bound-and-true-p)
48 (defalias 'netrc-bound-and-true-p 'bound-and-true-p) 47 (defalias 'netrc-bound-and-true-p 'bound-and-true-p)
49 (defmacro netrc-bound-and-true-p (var) 48 (defmacro netrc-bound-and-true-p (var)
50 "Return the value of symbol VAR if it is bound, else nil." 49 "Return the value of symbol VAR if it is bound, else nil."