Commit cc38a294 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Remove XEmacs conditionals.

parent 8198ba6e
......@@ -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.")
......
......@@ -230,12 +230,8 @@ to them."
(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)
......
......@@ -246,19 +246,8 @@ accessible."
(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)
......
......@@ -840,9 +840,7 @@ the end of the document."
(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)
......
......@@ -87,12 +87,8 @@ Each can be used any number of times.")
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment