Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a14b3417
Commit
a14b3417
authored
Sep 01, 2010
by
Katsumi Yamaoka
Browse files
Add compatibility functions gnus-process-get and gnus-process-put for Emacs 21 and XEmacs.
parent
0a46a12f
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
38 additions
and
20 deletions
+38
-20
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+5
-0
lisp/gnus/gnus-ems.el
lisp/gnus/gnus-ems.el
+33
-20
No files found.
lisp/gnus/ChangeLog
View file @
a14b3417
2010-09-01 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-ems.el (gnus-process-get, gnus-process-put): New compatibility
functions.
2010-08-31 Julien Danjou <julien@danjou.info> (tiny change)
* nnimap.el (nnimap-request-newgroups): Use nnimap-request-list-method
...
...
lisp/gnus/gnus-ems.el
View file @
a14b3417
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment