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
This commit is contained in:
parent
cbb8a8ad97
commit
a4c471c984
1 changed files with 1 additions and 1 deletions
|
@ -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")
|
||||
|
|
Loading…
Add table
Reference in a new issue