HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge changes from emacs-23 branch
[bpt/emacs.git]
/
lisp
/
mail
/
hashcash.el
diff --git
a/lisp/mail/hashcash.el
b/lisp/mail/hashcash.el
index
c7b48cf
..
efa27c3
100644
(file)
--- a/
lisp/mail/hashcash.el
+++ b/
lisp/mail/hashcash.el
@@
-48,6
+48,7
@@
;;; Code:
;;; Code:
+;; For Emacs <22.2 and XEmacs.
(eval-and-compile
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
(eval-and-compile
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
@@
-276,7
+277,7
@@
BUFFER defaults to the current buffer."
(unless buffer (setq buffer (current-buffer)))
(let (entry)
(while (setq entry (rassq buffer hashcash-process-alist))
(unless buffer (setq buffer (current-buffer)))
(let (entry)
(while (setq entry (rassq buffer hashcash-process-alist))
- (accept-process-output (car entry)))))
+ (accept-process-output (car entry)
1
))))
(defun hashcash-processes-running-p (buffer)
"Return non-nil if hashcash processes in BUFFER are still running."
(defun hashcash-processes-running-p (buffer)
"Return non-nil if hashcash processes in BUFFER are still running."
@@
-375,4
+376,4
@@
Prefix arg sets default accept amount temporarily."
(provide 'hashcash)
(provide 'hashcash)
-;;
arch-tag: 0e7fe983-a124-4392-9788-0dbcbd2c4d62
+;;
; hashcash.el ends here