unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
From: CHENG Gao <chenggao@gmail.com>
Subject: lisp/url/ file with Xemacs compatibility code removed
Date: Thu, 28 Oct 2004 20:06:44 +0800	[thread overview]
Message-ID: <pt33nj1n.fsf@gmail.com> (raw)

[-- Attachment #1: Type: text/plain, Size: 271 bytes --]

Attached is diff file for related changes.
If it's desirable to remove Xemacs compatibility code from url package
(as I think, it's merged into Emacs project, so it's not expected to
maintain this compatibility any more), please take a look. Otherwise
please ignore it.


[-- Attachment #2: url-diff --]
[-- Type: application/octet-stream, Size: 3515 bytes --]

--- d:/emacs/lisp/url/url-dired.el	2004-10-28 19:26:58.703125000 +0800
+++ d:/url/url-dired.el	2004-10-28 19:32:35.156250000 +0800
@@ -30,9 +30,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.")
 
--- d:/emacs/lisp/url/url-file.el	2004-10-28 19:26:58.734375000 +0800
+++ d:/url/url-file.el	2004-10-28 19:34:16.312500000 +0800
@@ -231,12 +231,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)
 
--- d:/emacs/lisp/url/url-handlers.el	2004-10-28 19:26:58.796875000 +0800
+++ d:/url/url-handlers.el	2004-10-28 19:49:35.906250000 +0800
@@ -233,18 +233,11 @@
 (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
+;; 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))
 
 (add-hook 'find-file-hook 'url-handlers-set-buffer-mode)
 
--- d:/emacs/lisp/url/url-http.el	2004-10-28 19:26:58.843750000 +0800
+++ d:/url/url-http.el	2004-10-28 19:50:38.187500000 +0800
@@ -821,9 +821,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-int (buffer-substring
 							  (match-beginning 1)
--- d:/emacs/lisp/url/url-nfs.el	2004-10-28 19:26:59.046875000 +0800
+++ d:/url/url-nfs.el	2004-10-28 19:51:17.812500000 +0800
@@ -86,12 +86,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)
 

 

[-- Attachment #3: Type: text/plain, Size: 47 bytes --]


-- 
德不孤，必有邻
         -- 《论语-里仁》


[-- Attachment #4: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel

             reply	other threads:[~2004-10-28 12:06 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2004-10-28 12:06 CHENG Gao [this message]
2004-10-30  3:27 ` lisp/url/ file with Xemacs compatibility code removed Richard Stallman
2004-10-31 13:43   ` CHENG Gao

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=pt33nj1n.fsf@gmail.com \
    --to=chenggao@gmail.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body. 
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).