(all): Use default-boundp.

This commit is contained in:
Richard M. Stallman 2005-02-16 09:37:20 +00:00
parent e1c9f9398e
commit 720f4c79bf

View file

@ -312,7 +312,7 @@ since it could result in memory overflow and make Emacs crash."
;; use the current value as the standard value.
standard (if (nthcdr 4 this)
(nth 4 this)
(when (boundp symbol)
(when (default-boundp symbol)
(funcall quoter (default-value symbol))))
;; Don't complain about missing variables which are
;; irrelevant to this platform.