/[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.27 by jpb, Mon May 16 03:54:05 2005 UTC revision 1.28 by jpb, Thu May 26 12:24:05 2005 UTC
# Line 702  Line 702 
702                                 (get func 'calc-user-defn)))                                 (get func 'calc-user-defn)))
703                      (kys (concat "z" (char-to-string (car def))))                      (kys (concat "z" (char-to-string (car def))))
704                      (intcmd (symbol-name (cdr def)))                      (intcmd (symbol-name (cdr def)))
705                      (algcmd (substring (symbol-name func) 9)))                      (algcmd (if func (substring (symbol-name func) 9) "")))
706                 (if (and defn (calc-valid-formula-func func))                 (if (and defn (calc-valid-formula-func func))
707                     (let ((niceexpr (math-format-nice-expr defn (frame-width))))                     (let ((niceexpr (math-format-nice-expr defn (frame-width))))
708                       (calc-wrapper                       (calc-wrapper

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

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