diff options
| author | Jack Coughlin <jack@jackc.me> | 2019-07-18 08:16:50 -0700 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2019-09-12 20:25:30 -0400 |
| commit | a4c471c98474a249948793aad386e4efc64a1c96 (patch) | |
| tree | 4de0cf4723fe274731c9d1fe3e7ef9ca0c8dbdcd /lisp/calc/calc-prog.el | |
| parent | cbb8a8ad979ed7975bfc7e9fa6aeeb4d9d6b7084 (diff) | |
| download | emacs-a4c471c98474a249948793aad386e4efc64a1c96.tar.gz emacs-a4c471c98474a249948793aad386e4efc64a1c96.tar.bz2 emacs-a4c471c98474a249948793aad386e4efc64a1c96.zip | |
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
Diffstat (limited to 'lisp/calc/calc-prog.el')
| -rw-r--r-- | lisp/calc/calc-prog.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el index ba8efd43b8e..37e10e8dfac 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") |