/[emacs]/emacs/lisp/calc/calc-yank.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-yank.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by eliz, Tue Nov 6 18:59:06 2001 UTC revision 1.2 by eliz, Tue Nov 13 07:30:58 2001 UTC
# Line 1  Line 1 
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.
# Line 410  Line 410 
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)))))))
# Line 488  To cancel the edit, simply kill the *Cal Line 488  To cancel the edit, simply kill the *Cal
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

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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