Mercurial > emacs
changeset 66225:eb65acc95303
Remove XEmacs conditionals.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Thu, 20 Oct 2005 14:17:14 +0000 |
| parents | d95e3ea763ec |
| children | e824309d9cd0 |
| files | lisp/url/url-dired.el lisp/url/url-file.el lisp/url/url-handlers.el lisp/url/url-http.el lisp/url/url-nfs.el |
| diffstat | 5 files changed, 8 insertions(+), 31 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/url/url-dired.el Thu Oct 20 14:05:27 2005 +0000 +++ b/lisp/url/url-dired.el Thu Oct 20 14:17:14 2005 +0000 @@ -31,9 +31,7 @@ (defvar url-dired-minor-mode-map (let ((map (make-sparse-keymap))) (define-key map "\C-m" 'url-dired-find-file) - (if (featurep 'xemacs) - (define-key map [button2] 'url-dired-find-file-mouse) - (define-key map [mouse-2] 'url-dired-find-file-mouse)) + (define-key map [mouse-2] 'url-dired-find-file-mouse) map) "Keymap used when browsing directories.")
--- a/lisp/url/url-file.el Thu Oct 20 14:05:27 2005 +0000 +++ b/lisp/url/url-file.el Thu Oct 20 14:17:14 2005 +0000 @@ -230,12 +230,8 @@ (url-file-create-wrapper file-readable-p (url)) (url-file-create-wrapper file-writable-p (url)) (url-file-create-wrapper file-executable-p (url)) -(if (featurep 'xemacs) - (progn - (url-file-create-wrapper directory-files (url &optional full match nosort files-only)) - (url-file-create-wrapper file-truename (url &optional default))) - (url-file-create-wrapper directory-files (url &optional full match nosort)) - (url-file-create-wrapper file-truename (url &optional counter prev-dirs))) +(url-file-create-wrapper directory-files (url &optional full match nosort)) +(url-file-create-wrapper file-truename (url &optional counter prev-dirs)) (provide 'url-file)
--- a/lisp/url/url-handlers.el Thu Oct 20 14:05:27 2005 +0000 +++ b/lisp/url/url-handlers.el Thu Oct 20 14:17:14 2005 +0000 @@ -246,19 +246,8 @@ (url-handlers-create-wrapper file-writable-p (url)) (url-handlers-create-wrapper file-directory-p (url)) (url-handlers-create-wrapper file-executable-p (url)) - -(if (featurep 'xemacs) - (progn - ;; XEmacs specific prototypes - (url-handlers-create-wrapper - directory-files (url &optional full match nosort files-only)) - (url-handlers-create-wrapper - file-truename (url &optional default))) - ;; Emacs specific prototypes - (url-handlers-create-wrapper - directory-files (url &optional full match nosort)) - (url-handlers-create-wrapper - file-truename (url &optional counter prev-dirs))) +(url-handlers-create-wrapper directory-files (url &optional full match nosort)) +(url-handlers-create-wrapper file-truename (url &optional counter prev-dirs)) (add-hook 'find-file-hook 'url-handlers-set-buffer-mode)
--- a/lisp/url/url-http.el Thu Oct 20 14:05:27 2005 +0000 +++ b/lisp/url/url-http.el Thu Oct 20 14:17:14 2005 +0000 @@ -840,9 +840,7 @@ (list 'start-open t 'end-open t 'chunked-encoding t - 'face (if (featurep 'xemacs) - 'text-cursor - 'cursor) + 'face 'cursor 'invisible t)) (setq url-http-chunked-length (string-to-number (buffer-substring (match-beginning 1)
--- a/lisp/url/url-nfs.el Thu Oct 20 14:05:27 2005 +0000 +++ b/lisp/url/url-nfs.el Thu Oct 20 14:17:14 2005 +0000 @@ -87,12 +87,8 @@ (url-nfs-create-wrapper file-readable-p (url)) (url-nfs-create-wrapper file-writable-p (url)) (url-nfs-create-wrapper file-executable-p (url)) -(if (featurep 'xemacs) - (progn - (url-nfs-create-wrapper directory-files (url &optional full match nosort files-only)) - (url-nfs-create-wrapper file-truename (url &optional default))) - (url-nfs-create-wrapper directory-files (url &optional full match nosort)) - (url-nfs-create-wrapper file-truename (url &optional counter prev-dirs))) +(url-nfs-create-wrapper directory-files (url &optional full match nosort)) +(url-nfs-create-wrapper file-truename (url &optional counter prev-dirs)) (provide 'url-nfs)