2009-11-05 Dan Nicolaescu <dann@ics.uci.edu>

	* dns-mode.el (auto-mode-alist): Purecopy string.

2009-11-03  Stefan Monnier  <monnier@iro.umontreal.ca>

	* hashcash.el (hashcash-generate-payment): Use with-current-buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bdcb5d2..5013d38 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2009-11-05  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * dns-mode.el (auto-mode-alist): Purecopy string.
+
+2009-11-03  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * hashcash.el (hashcash-generate-payment): Use with-current-buffer.
+
 2009-10-24  Glenn Morris  <rgm@gnu.org>
 
        * gnus-art.el (help-xref-stack-item): Define for compiler.

diff --git a/lisp/dns-mode.el b/lisp/dns-mode.el
index beab676..d5e259e 100644 (file)
--- a/lisp/dns-mode.el
+++ b/lisp/dns-mode.el
@@ -222,7 +222,7 @@ This function is run from `before-save-hook'."
           ;; We return nil in case this is used in write-contents-functions.
           nil)))
 
-;;;###autoload(add-to-list 'auto-mode-alist '("\\.soa\\'" . dns-mode))
+;;;###autoload(add-to-list 'auto-mode-alist (purecopy '("\\.soa\\'" . dns-mode)))
 
 (provide 'dns-mode)
 

diff --git a/lisp/hashcash.el b/lisp/hashcash.el
index 9bcf449..07a7355 100644 (file)
--- a/lisp/hashcash.el
+++ b/lisp/hashcash.el
@@ -161,8 +161,7 @@ For example, you may want to set this to '(\"-Z2\") to reduce header length."
   "Generate a hashcash payment by finding a VAL-bit collison on STR."
   (if (and (> val 0)
           hashcash-path)
-      (save-excursion
-       (set-buffer (get-buffer-create " *hashcash*"))
+      (with-current-buffer (get-buffer-create " *hashcash*")
        (erase-buffer)
        (apply 'call-process hashcash-path nil t nil
               "-m" "-q" "-b" (number-to-string val) str