Add obarray-clear and use it

* lisp/obarray.el (obarray-clear): New.
* lisp/abbrev.el (clear-abbrev-table):
* lisp/vc/vc.el (vc-clear-context): Use it instead of assuming the
obarray is a vector that can be 0-filled.
* test/lisp/obarray-tests.el (obarray-clear): New test.

(cherry picked from commit 6a182658a533acab94d8fa0aec3e2b7a4f7d6a93)

diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index b523977fed574cac283e69d4737f9a9c160bc619..188eeb720c07528c05c7dcec4638ed6c17183c8f 100644 (file)
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -602,8 +602,7 @@ It is nil if the abbrev has already been unexpanded.")
   "Undefine all abbrevs in abbrev table TABLE, leaving TABLE empty."
   (setq abbrevs-changed t)
   (let* ((sym (obarray-get table "")))
-    (dotimes (i (length table))
-      (aset table i 0))
+    (obarray-clear table)
     ;; Preserve the table's properties.
     (cl-assert sym)
     (let ((newsym (obarray-put table "")))

diff --git a/lisp/obarray.el b/lisp/obarray.el
index a26992df8e2e0caa45acb7ab7b0403ba4077afe0..e1ebb2ade5112be0e46a18d0b4d4b229bc7c0327 100644 (file)
--- a/lisp/obarray.el
+++ b/lisp/obarray.el
@@ -66,5 +66,10 @@ Return t on success, nil otherwise."
   "Call function FN on every symbol in obarray OB and return nil."
   (mapatoms fn ob))
 
+(defun obarray-clear (ob)
+  "Remove all symbols from obarray OB."
+  ;; FIXME: This doesn't change the symbols to uninterned status.
+  (fillarray ob 0))
+
 (provide 'obarray)
 ;;; obarray.el ends here

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 619b469bebb24e1f96383c3b509dbe0925cb5208..3cd17276fa473feb33016f23d1d52aec1b47f4ed 100644 (file)
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -935,7 +935,7 @@ is sensitive to blank lines."
 (defun vc-clear-context ()
   "Clear all cached file properties."
   (interactive)
-  (fillarray vc-file-prop-obarray 0))
+  (obarray-clear vc-file-prop-obarray))
 
 (defmacro with-vc-properties (files form settings)
   "Execute FORM, then maybe set per-file properties for FILES.

diff --git a/test/lisp/obarray-tests.el b/test/lisp/obarray-tests.el
index dd8f1c8abd4e8e05de198cbb08d8578b07aa3c25..dd40d0f4d767a9af91e9a8eb92984e9367b78026 100644 (file)
--- a/test/lisp/obarray-tests.el
+++ b/test/lisp/obarray-tests.el
@@ -89,5 +89,15 @@
     (obarray-map collect-names table)
     (should (equal (sort syms #'string<) '("a" "b" "c")))))
 
+(ert-deftest obarray-clear ()
+  (let ((o (obarray-make)))
+    (intern "a" o)
+    (intern "b" o)
+    (intern "c" o)
+    (obarray-clear o)
+    (let ((n 0))
+      (mapatoms (lambda (_) (setq n (1+ n))) o)
+      (should (equal n 0)))))
+
 (provide 'obarray-tests)
 ;;; obarray-tests.el ends here