[Top][All Lists]
[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101261: Add compatibility functions gnus-process-get and gnus-process-put for Emacs 21 and XEmacs.,
Katsumi Yamaoka <=