diff options
Diffstat (limited to 'lisp/obarray.el')
| -rw-r--r-- | lisp/obarray.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/obarray.el b/lisp/obarray.el index e6e51c1382a..5e646db9ab7 100644 --- a/lisp/obarray.el +++ b/lisp/obarray.el | |||
| @@ -29,10 +29,11 @@ | |||
| 29 | 29 | ||
| 30 | (defconst obarray-default-size 4) | 30 | (defconst obarray-default-size 4) |
| 31 | (make-obsolete-variable 'obarray-default-size | 31 | (make-obsolete-variable 'obarray-default-size |
| 32 | "obarrays now grow automatically" "30.1") | 32 | "obarrays now grow automatically." "30.1") |
| 33 | 33 | ||
| 34 | (defun obarray-size (_ob) obarray-default-size) | 34 | (defun obarray-size (_ob) |
| 35 | (make-obsolete 'obarray-size "obarrays now grow automatically" "30.1") | 35 | (declare (obsolete "obarrays now grow automatically." "30.1")) |
| 36 | obarray-default-size) | ||
| 36 | 37 | ||
| 37 | ;; Don’t use obarray as a variable name to avoid shadowing. | 38 | ;; Don’t use obarray as a variable name to avoid shadowing. |
| 38 | (defun obarray-get (ob name) | 39 | (defun obarray-get (ob name) |
| @@ -42,7 +43,7 @@ Return nil otherwise." | |||
| 42 | 43 | ||
| 43 | (defun obarray-put (ob name) | 44 | (defun obarray-put (ob name) |
| 44 | "Return symbol named NAME from obarray OB. | 45 | "Return symbol named NAME from obarray OB. |
| 45 | Creates and adds the symbol if doesn't exist." | 46 | Creates and adds the symbol if it doesn't exist." |
| 46 | (intern name ob)) | 47 | (intern name ob)) |
| 47 | 48 | ||
| 48 | (defun obarray-remove (ob name) | 49 | (defun obarray-remove (ob name) |