# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1284476382 -7200
# Node ID 79de2afad0d98c4317d513fc0006d3588e5bc2fd
# Parent  41bf9b6f3b917512b2bc5f4ef47f69ebc4036e4f
Explicitly pass `obarray' to `unintern' to avoid a warning.

* gnus/gnus-registry.el (gnus-registry-install-shortcuts)
* obsolete/old-whitespace.el (whitespace-unload-function)

diff -r 41bf9b6f3b91 -r 79de2afad0d9 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Sep 14 16:41:53 2010 +0200
+++ b/lisp/ChangeLog	Tue Sep 14 16:59:42 2010 +0200
@@ -1,3 +1,8 @@
+2010-09-14  Juanma Barranquero  <lekktu@gmail.com>
+
+	* obsolete/old-whitespace.el (whitespace-unload-function):
+	Explicitly pass `obarray' to `unintern' to avoid a warning.
+
 2010-09-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* emacs-lisp/byte-run.el (set-advertised-calling-convention):
diff -r 41bf9b6f3b91 -r 79de2afad0d9 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Tue Sep 14 16:41:53 2010 +0200
+++ b/lisp/gnus/ChangeLog	Tue Sep 14 16:59:42 2010 +0200
@@ -1,3 +1,8 @@
+2010-09-14  Juanma Barranquero  <lekktu@gmail.com>
+
+	* gnus-registry.el (gnus-registry-install-shortcuts):
+	Explicitly pass `obarray' to `unintern' to avoid a warning.
+
 2010-09-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* gnus-start.el (gnus-read-active-for-groups): Reverted the previous
diff -r 41bf9b6f3b91 -r 79de2afad0d9 lisp/gnus/gnus-registry.el
--- a/lisp/gnus/gnus-registry.el	Tue Sep 14 16:41:53 2010 +0200
+++ b/lisp/gnus/gnus-registry.el	Tue Sep 14 16:59:42 2010 +0200
@@ -783,7 +783,7 @@
 		  (function-name (format function-format variant-name))
 		  (shortcut (format "%c" data))
 		  (shortcut (if remove (upcase shortcut) shortcut)))
-	     (unintern function-name)
+	     (unintern function-name obarray)
 	     (eval
 	      `(defun
 		 ;; function name
diff -r 41bf9b6f3b91 -r 79de2afad0d9 lisp/obsolete/old-whitespace.el
--- a/lisp/obsolete/old-whitespace.el	Tue Sep 14 16:41:53 2010 +0200
+++ b/lisp/obsolete/old-whitespace.el	Tue Sep 14 16:59:42 2010 +0200
@@ -788,7 +788,7 @@
 
 (defun whitespace-unload-function ()
   "Unload the whitespace library."
-  (if (unintern "whitespace-unload-hook")
+  (if (unintern "whitespace-unload-hook" obarray)
       ;; if whitespace-unload-hook is defined, let's get rid of it
       ;; and recursively call `unload-feature'
       (progn (unload-feature 'whitespace) t)