emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r101261: Add compatibility functions


From: Katsumi Yamaoka
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r101261: Add compatibility functions gnus-process-get and gnus-process-put for Emacs 21 and XEmacs.
Date: Wed, 01 Sep 2010 04:22:17 +0000
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 101261
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-09-01 04:22:17 +0000
message:
  Add compatibility functions gnus-process-get and gnus-process-put for Emacs 
21 and XEmacs.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-ems.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-09-01 00:06:27 +0000
+++ b/lisp/gnus/ChangeLog       2010-09-01 04:22:17 +0000
@@ -1,3 +1,8 @@
+2010-09-01  Katsumi Yamaoka  <address@hidden>
+
+       * gnus-ems.el (gnus-process-get, gnus-process-put): New compatibility
+       functions.
+
 2010-08-31  Julien Danjou  <address@hidden>  (tiny change)
 
        * nnimap.el (nnimap-request-newgroups): Use nnimap-request-list-method

=== modified file 'lisp/gnus/gnus-ems.el'
--- a/lisp/gnus/gnus-ems.el     2010-08-31 23:26:23 +0000
+++ b/lisp/gnus/gnus-ems.el     2010-09-01 04:22:17 +0000
@@ -305,26 +305,39 @@
          (setq start end
                end nil))))))
 
-(if (fboundp 'set-process-plist)
-    (progn
-      (defalias 'gnus-set-process-plist 'set-process-plist)
-      (defalias 'gnus-process-plist 'process-plist))
-  (defun gnus-set-process-plist (process plist)
-    "Replace the plist of PROCESS with PLIST.  Returns PLIST."
-    (put 'gnus-process-plist process plist))
-  (defun gnus-process-plist (process)
-    "Return the plist of PROCESS."
-    ;; Remove those of dead processes from `gnus-process-plist'
-    ;; to prevent it from growing.
-    (let ((plist (symbol-plist 'gnus-process-plist))
-         proc)
-      (while (setq proc (car plist))
-       (if (and (processp proc)
-                (memq (process-status proc) '(open run)))
-           (setq plist (cddr plist))
-         (setcar plist (caddr plist))
-         (setcdr plist (or (cdddr plist) '(nil))))))
-    (get 'gnus-process-plist process)))
+(eval-and-compile
+  (if (fboundp 'set-process-plist)
+      (progn
+       (defalias 'gnus-set-process-plist 'set-process-plist)
+       (defalias 'gnus-process-plist 'process-plist)
+       (defalias 'gnus-process-get 'process-get)
+       (defalias 'gnus-process-put 'process-put))
+    (defun gnus-set-process-plist (process plist)
+      "Replace the plist of PROCESS with PLIST.  Returns PLIST."
+      (put 'gnus-process-plist process plist))
+    (defun gnus-process-plist (process)
+      "Return the plist of PROCESS."
+      ;; Remove those of dead processes from `gnus-process-plist'
+      ;; to prevent it from growing.
+      (let ((plist (symbol-plist 'gnus-process-plist))
+           proc)
+       (while (setq proc (car plist))
+         (if (and (processp proc)
+                  (memq (process-status proc) '(open run)))
+             (setq plist (cddr plist))
+           (setcar plist (caddr plist))
+           (setcdr plist (or (cdddr plist) '(nil))))))
+      (get 'gnus-process-plist process))
+    (defun gnus-process-get (process propname)
+      "Return the value of PROCESS' PROPNAME property.
+This is the last value stored with `(gnus-process-put PROCESS PROPNAME 
VALUE)'."
+      (plist-get (gnus-process-plist process) propname))
+    (defun gnus-process-put (process propname value)
+      "Change PROCESS' PROPNAME property to VALUE.
+It can be retrieved with `(gnus-process-get PROCESS PROPNAME)'."
+      (gnus-set-process-plist process
+                             (plist-put (process-plist process)
+                                        propname value)))))
 
 (provide 'gnus-ems)
 


reply via email to

[Prev in Thread] Current Thread [Next in Thread]