Mercurial > emacs
comparison lisp/ps-print.el @ 85988:915f18d633ac
Clean the code for checking suitable Emacs version.
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Fri, 09 Nov 2007 15:34:03 +0000 |
| parents | 6a97e5e13b22 |
| children | 4a4d5773bb72 880960b70474 |
comparison
equal
deleted
inserted
replaced
| 85987:6a97e5e13b22 | 85988:915f18d633ac |
|---|---|
| 1460 (require 'lpr) | 1460 (require 'lpr) |
| 1461 | 1461 |
| 1462 (or (featurep 'lisp-float-type) | 1462 (or (featurep 'lisp-float-type) |
| 1463 (error "`ps-print' requires floating point support")) | 1463 (error "`ps-print' requires floating point support")) |
| 1464 | 1464 |
| 1465 (let ((case-fold-search t)) | 1465 (if (featurep 'xemacs) |
| 1466 (cond ((featurep 'xemacs)) | 1466 () |
| 1467 (t | 1467 (unless (and (boundp 'emacs-major-version) |
| 1468 (unless (and (boundp 'emacs-major-version) | 1468 (>= emacs-major-version 22)) |
| 1469 (>= emacs-major-version 22)) | 1469 (error "`ps-print' only supports Emacs 22 and higher"))) |
| 1470 (error "`ps-print' only supports Emacs 22 and higher"))))) | |
| 1471 | 1470 |
| 1472 | 1471 |
| 1473 ;; GNU Emacs | 1472 ;; GNU Emacs |
| 1474 (or (fboundp 'line-beginning-position) | 1473 (or (fboundp 'line-beginning-position) |
| 1475 (defun line-beginning-position (&optional n) | 1474 (defun line-beginning-position (&optional n) |