1 |
;; Calculator for GNU Emacs, part II [calc-yank.el] |
;; Calculator for GNU Emacs, part II [calc-yank.el] |
2 |
;; Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
3 |
;; Written by Dave Gillespie, daveg@synaptics.com. |
;; Written by Dave Gillespie, daveg@synaptics.com. |
4 |
|
|
5 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
410 |
(function |
(function |
411 |
(lambda (x) |
(lambda (x) |
412 |
(if (math-vectorp x) (setq allow-ret t)) |
(if (math-vectorp x) (setq allow-ret t)) |
413 |
(math-format-nice-expr x (screen-width))))) |
(math-format-nice-expr x (frame-width))))) |
414 |
(if (> n 0) |
(if (> n 0) |
415 |
(calc-top-list n) |
(calc-top-list n) |
416 |
(calc-top-list 1 (- n))))))) |
(calc-top-list 1 (- n))))))) |
488 |
(select-window (get-buffer-window (aref calc-embedded-info 1)))) |
(select-window (get-buffer-window (aref calc-embedded-info 1)))) |
489 |
(switch-to-buffer (get-buffer-create "*Calc Edit*"))) |
(switch-to-buffer (get-buffer-create "*Calc Edit*"))) |
490 |
(setq calc-return-buffer buf) |
(setq calc-return-buffer buf) |
491 |
(if (and (< (window-width) (screen-width)) |
(if (and (< (window-width) (frame-width)) |
492 |
calc-display-trail) |
calc-display-trail) |
493 |
(let ((win (get-buffer-window (calc-trail-buffer)))) |
(let ((win (get-buffer-window (calc-trail-buffer)))) |
494 |
(if win |
(if win |