[Emacs-diffs] master a4c471c 2/2: Fix saving user-defined calc commands with compositions (Bug#36720)

[Noam Postavsky]

branch: master
commit a4c471c98474a249948793aad386e4efc64a1c96
Author: Jack Coughlin <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Fix saving user-defined calc commands with compositions (Bug#36720)
    
    * lisp/calc/calc-prog.el (calc-user-define-permanent): Correctly save
    the composition when the user specifies their formula by its command
    name or key.
    
    Copyright-paperwork-exempt: yes
---
 lisp/calc/calc-prog.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el
index ba8efd4..37e10e8 100644
--- a/lisp/calc/calc-prog.el
+++ b/lisp/calc/calc-prog.el
@@ -1097,7 +1097,7 @@ Redefine the corresponding command."
        (or func (setq func (and cmd (symbolp cmd) (fboundp cmd) cmd)))
        (if (get func 'math-compose-forms)
           (let ((pt (point)))
-            (insert "(put '" (symbol-name cmd)
+             (insert "(put '" (symbol-name func)
                     " 'math-compose-forms '"
                     (prin1-to-string (get func 'math-compose-forms))
                     ")\n")