aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/obarray.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/obarray.el')
-rw-r--r--lisp/obarray.el9
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.
45Creates and adds the symbol if doesn't exist." 46Creates 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)