emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r101436: Explicitly pass `obarray' to


From: Juanma Barranquero
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r101436: Explicitly pass `obarray' to `unintern' to avoid a warning.
Date: Tue, 14 Sep 2010 16:59:42 +0200
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 101436
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Tue 2010-09-14 16:59:42 +0200
message:
  Explicitly pass `obarray' to `unintern' to avoid a warning.
  
  * gnus/gnus-registry.el (gnus-registry-install-shortcuts)
  * obsolete/old-whitespace.el (whitespace-unload-function)
modified:
  lisp/ChangeLog
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-registry.el
  lisp/obsolete/old-whitespace.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-09-14 14:41:53 +0000
+++ b/lisp/ChangeLog    2010-09-14 14:59:42 +0000
@@ -1,3 +1,8 @@
+2010-09-14  Juanma Barranquero  <address@hidden>
+
+       * obsolete/old-whitespace.el (whitespace-unload-function):
+       Explicitly pass `obarray' to `unintern' to avoid a warning.
+
 2010-09-14  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/byte-run.el (set-advertised-calling-convention):

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-09-14 13:44:44 +0000
+++ b/lisp/gnus/ChangeLog       2010-09-14 14:59:42 +0000
@@ -1,3 +1,8 @@
+2010-09-14  Juanma Barranquero  <address@hidden>
+
+       * gnus-registry.el (gnus-registry-install-shortcuts):
+       Explicitly pass `obarray' to `unintern' to avoid a warning.
+
 2010-09-14  Lars Magne Ingebrigtsen  <address@hidden>
 
        * gnus-start.el (gnus-read-active-for-groups): Reverted the previous

=== modified file 'lisp/gnus/gnus-registry.el'
--- a/lisp/gnus/gnus-registry.el        2010-09-02 01:42:32 +0000
+++ b/lisp/gnus/gnus-registry.el        2010-09-14 14:59:42 +0000
@@ -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

=== modified file 'lisp/obsolete/old-whitespace.el'
--- a/lisp/obsolete/old-whitespace.el   2010-01-13 08:35:10 +0000
+++ b/lisp/obsolete/old-whitespace.el   2010-09-14 14:59:42 +0000
@@ -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)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]