1131 |
(string-match "full" (nth 1 p)) |
(string-match "full" (nth 1 p)) |
1132 |
(setq calc-standalone-flag t)) |
(setq calc-standalone-flag t)) |
1133 |
(setq p (cdr p)))) |
(setq p (cdr p)))) |
1134 |
(run-hooks 'calc-mode-hook) |
(run-mode-hooks 'calc-mode-hook) |
1135 |
(calc-refresh t) |
(calc-refresh t) |
1136 |
(calc-set-mode-line) |
(calc-set-mode-line) |
1137 |
(calc-check-defines)) |
(calc-check-defines)) |
1181 |
(insert (propertize (concat "Emacs Calculator v" calc-version |
(insert (propertize (concat "Emacs Calculator v" calc-version |
1182 |
" by Dave Gillespie\n") |
" by Dave Gillespie\n") |
1183 |
'font-lock-face 'italic)))) |
'font-lock-face 'italic)))) |
1184 |
(run-hooks 'calc-trail-mode-hook)) |
(run-mode-hooks 'calc-trail-mode-hook)) |
1185 |
|
|
1186 |
(defun calc-create-buffer () |
(defun calc-create-buffer () |
1187 |
(set-buffer (get-buffer-create "*Calculator*")) |
(set-buffer (get-buffer-create "*Calculator*")) |