197 |
(progn |
(progn |
198 |
(setq cmd-base-default (concat "User-" keyname)) |
(setq cmd-base-default (concat "User-" keyname)) |
199 |
(setq cmd (completing-read |
(setq cmd (completing-read |
200 |
(concat "Define M-x command name (default: calc-" |
(concat "Define M-x command name (default calc-" |
201 |
cmd-base-default |
cmd-base-default |
202 |
"): ") |
"): ") |
203 |
obarray 'commandp nil |
obarray 'commandp nil |
233 |
(setq func |
(setq func |
234 |
(concat "calcFunc-" |
(concat "calcFunc-" |
235 |
(completing-read |
(completing-read |
236 |
(concat "Define algebraic function name (default: " |
(concat "Define algebraic function name (default " |
237 |
cmd-base-default "): ") |
cmd-base-default "): ") |
238 |
(mapcar (lambda (x) (substring x 9)) |
(mapcar (lambda (x) (substring x 9)) |
239 |
(all-completions "calcFunc-" |
(all-completions "calcFunc-" |