Mercurial > emacs
changeset 110358:79de2afad0d9
Explicitly pass `obarray' to `unintern' to avoid a warning.
* gnus/gnus-registry.el (gnus-registry-install-shortcuts)
* obsolete/old-whitespace.el (whitespace-unload-function)
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 14 Sep 2010 16:59:42 +0200 |
| parents | 41bf9b6f3b91 |
| children | a828354ee483 |
| files | lisp/ChangeLog lisp/gnus/ChangeLog lisp/gnus/gnus-registry.el lisp/obsolete/old-whitespace.el |
| diffstat | 4 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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
--- 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
--- 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)