Mercurial > emacs
comparison lisp/net/trampver.el @ 87142:a33cd731dd95
Fix buggy calls to `error' in the net/ directory.
| author | Deepak Goel <deego@gnufans.org> |
|---|---|
| date | Thu, 06 Dec 2007 18:22:45 +0000 |
| parents | 05c8e6a18913 |
| children | 8b57223acf6b 2fcaae6177a5 |
comparison
equal
deleted
inserted
replaced
| 87141:1a8ec74a74f3 | 87142:a33cd731dd95 |
|---|---|
| 36 (defconst tramp-bug-report-address "tramp-devel@gnu.org" | 36 (defconst tramp-bug-report-address "tramp-devel@gnu.org" |
| 37 "Email address to send bug reports to.") | 37 "Email address to send bug reports to.") |
| 38 | 38 |
| 39 ;; Check for (X)Emacs version. | 39 ;; Check for (X)Emacs version. |
| 40 (let ((x (if (or (< emacs-major-version 21) (and (featurep 'xemacs) (< emacs-minor-version 4))) (format "Tramp 2.1.12-pre is not fit for %s" (when (string-match "^.*$" (emacs-version)) (match-string 0 (emacs-version)))) "ok"))) | 40 (let ((x (if (or (< emacs-major-version 21) (and (featurep 'xemacs) (< emacs-minor-version 4))) (format "Tramp 2.1.12-pre is not fit for %s" (when (string-match "^.*$" (emacs-version)) (match-string 0 (emacs-version)))) "ok"))) |
| 41 (unless (string-match "\\`ok\\'" x) (error x))) | 41 (unless (string-match "\\`ok\\'" x) (error "%s" x))) |
| 42 | 42 |
| 43 (provide 'trampver) | 43 (provide 'trampver) |
| 44 | 44 |
| 45 ;;; arch-tag: 443576ca-f8f1-4bb1-addc-5c70861e93b1 | 45 ;;; arch-tag: 443576ca-f8f1-4bb1-addc-5c70861e93b1 |
| 46 ;;; trampver.el ends here | 46 ;;; trampver.el ends here |