Calc on Mule

Mule で Calc を使いたい。

calc はそのまま素直に Mule にインストールすることは出来ません。これは多国語化の影響で、ある関数の引数の数がオリジナルと異っていることによります。とはいえ修正は簡単で、二箇所だけですみます。(以下にパッチを貼り付けておきます。)

diff calc-2.02c/calc-maint.el.orig /calc-2.02c/calc-maint.el
*** calc-2.02c/calc-maint.el.original
--- calc-2.02b/calc-maint.el Tue Aug 16 20:56:04 1994***************
*** 166,172 ****
        (t (apply old-message fmt args)))
  )
! (defun calc-compile-write-region (start end filename &optional append visit)
    (if (eq visit t)
        (set-buffer-auto-saved))
    (if (and (string-match "\\.elc" filename)
--- 166,173 ----
        (t (apply old-message fmt args)))
  )
! (defun calc-compile-write-region
!   (start end filename &optional append visit coding-system)
    (if (eq visit t)
        (set-buffer-auto-saved))
    (if (and (string-match "\\.elc" filename)
***************
*** 177,183 ****
        (if (search-forward "\n(require (quote calc-macs))\n" nil t)
            (replace-match ""))
        (setq end (point-max))))
!   (funcall old-write-region start end filename append 'quietly)
    (message "Wrote %s" filename)
    nil
  )
--- 178,184 ----
        (if (search-forward "\n(require (quote calc-macs))\n" nil t)
            (replace-match ""))
        (setq end (point-max))))
!   (funcall old-write-region start end filename append 'quietly *noconv*)
    (message "Wrote %s" filename)
    nil
  )

Calc のページに戻る
Mule のページに戻る