/[emacs]/emacs/lisp/calc/calc-prog.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-prog.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by jpb, Thu Jul 14 19:46:49 2005 UTC revision 1.32 by rfrancoise, Sat Sep 24 13:44:00 2005 UTC
# Line 197  Line 197 
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
# Line 233  Line 233 
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-"

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26