Mercurial > emacs
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." |