From: Jeremy Bryant <jb@jeremybryant.net>
Date: Sat, 4 Nov 2023 23:29:10 +0000 (+0000)
Subject: * lisp/emacs-lisp/cl-extra.el (cl-remprop): Update names to match docstring
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3dd9750d124b077b2e87e0a253f69cf1f65422d6;p=emacs.git

* lisp/emacs-lisp/cl-extra.el (cl-remprop): Update names to match docstring
---

diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index 15be51bd651..2ca2d03170a 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -635,13 +635,12 @@ PROPLIST is a list of the sort returned by `symbol-plist'.
     (and (cdr p) (progn (setcdr p (cdr (cdr (cdr p)))) t))))
 
 ;;;###autoload
-(defun cl-remprop (sym tag)
-  "Remove from SYMBOL's plist the property PROPNAME and its value.
-\n(fn SYMBOL PROPNAME)"
-  (let ((plist (symbol-plist sym)))
-    (if (and plist (eq tag (car plist)))
-	(progn (setplist sym (cdr (cdr plist))) t)
-      (cl--do-remf plist tag))))
+(defun cl-remprop (symbol propname)
+  "Remove from SYMBOL's plist the property PROPNAME and its value."
+  (let ((plist (symbol-plist symbol)))
+    (if (and plist (eq propname (car plist)))
+	(progn (setplist symbol (cdr (cdr plist))) t)
+      (cl--do-remf plist propname))))
 
 ;;; Streams.