Mercurial > emacs
comparison lisp/calc/calc.el @ 77254:8807d7eac608
(calc-trail-mode): Shorten the title.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Mon, 16 Apr 2007 01:50:16 +0000 |
| parents | 497d17a80bb8 |
| children | 429f941a58b7 |
comparison
equal
deleted
inserted
replaced
| 77253:205adaa020d5 | 77254:8807d7eac608 |
|---|---|
| 1256 (make-local-variable 'overlay-arrow-string) | 1256 (make-local-variable 'overlay-arrow-string) |
| 1257 (when buf | 1257 (when buf |
| 1258 (set (make-local-variable 'calc-main-buffer) buf)) | 1258 (set (make-local-variable 'calc-main-buffer) buf)) |
| 1259 (when (= (buffer-size) 0) | 1259 (when (= (buffer-size) 0) |
| 1260 (let ((buffer-read-only nil)) | 1260 (let ((buffer-read-only nil)) |
| 1261 (insert (propertize (concat "Emacs Calculator v" calc-version | 1261 (insert (propertize (concat "Emacs Calculator Trail\n") |
| 1262 " by Dave Gillespie\n") | |
| 1263 'font-lock-face 'italic)))) | 1262 'font-lock-face 'italic)))) |
| 1264 (run-mode-hooks 'calc-trail-mode-hook)) | 1263 (run-mode-hooks 'calc-trail-mode-hook)) |
| 1265 | 1264 |
| 1266 (defun calc-create-buffer () | 1265 (defun calc-create-buffer () |
| 1267 (set-buffer (get-buffer-create "*Calculator*")) | 1266 (set-buffer (get-buffer-create "*Calculator*")) |