Fix defvar equivalent expression.

25ef19c5 · Richard M. Stallman · 113613ea · 25ef19c5
Commit 25ef19c5 authored Aug 10, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lispref/variables.texi lispref/variables.texi +2 -1

No files found.
--- a/lispref/variables.texi
+++ b/lispref/variables.texi
@@ -484,7 +484,8 @@ Here is an equivalent expression for the @code{defvar} special form:
 (progn
  (if (not (boundp '@var{symbol}))
      (setq @var{symbol} @var{value}))
-  (put '@var{symbol} 'variable-documentation '@var{doc-string})
+  (if '@var{doc-string}
+    (put '@var{symbol} 'variable-documentation '@var{doc-string}))
  '@var{symbol})
 @end group
 @end example