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

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

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

revision 1.2 by walters, Wed Nov 14 09:08:24 2001 UTC revision 1.3 by walters, Mon Nov 19 07:42:39 2001 UTC
# Line 1  Line 1 
1  ;; Calculator for GNU Emacs, part II [calc-vec.el]  ;;; calc-vec.el --- vector functions for Calc
2    
3  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
4  ;; Written by Dave Gillespie, daveg@synaptics.com.  
5    ;; Author: David Gillespie <daveg@synaptics.com>
6    ;; Maintainer: Colin Walters <walters@debian.org>
7    
8  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
9    
# Line 19  Line 22 
22  ;; file named COPYING.  Among other things, the copyright notice  ;; file named COPYING.  Among other things, the copyright notice
23  ;; and this notice must be preserved on all copies.  ;; and this notice must be preserved on all copies.
24    
25    ;;; Commentary:
26    
27    ;;; Code:
28    
29  ;; This file is autoloaded from calc-ext.el.  ;; This file is autoloaded from calc-ext.el.
30  (require 'calc-ext)  (require 'calc-ext)
# Line 33  Line 38 
38    (interactive "P")    (interactive "P")
39    (calc-wrapper    (calc-wrapper
40     (message (if (calc-change-mode 'calc-display-strings n t t)     (message (if (calc-change-mode 'calc-display-strings n t t)
41                  "Displaying vectors of integers as quoted strings."                  "Displaying vectors of integers as quoted strings"
42                "Displaying vectors of integers normally."))))                "Displaying vectors of integers normally"))))
43    
44    
45  (defun calc-pack (n)  (defun calc-pack (n)
# Line 204  Line 209 
209          (t          (t
210           (error "Invalid packing mode: %d" mode))))           (error "Invalid packing mode: %d" mode))))
211    
212    (defvar calc-unpack-with-type nil)
213  (defun calc-unpack (mode)  (defun calc-unpack (mode)
214    (interactive "P")    (interactive "P")
215    (calc-wrapper    (calc-wrapper
# Line 328  Line 334 
334             (error "Expected a floating-point number")))             (error "Expected a floating-point number")))
335          (t          (t
336           (error "Invalid unpacking mode: %d" mode))))           (error "Invalid unpacking mode: %d" mode))))
 (setq calc-unpack-with-type nil)  
337    
338  (defun calc-diag (n)  (defun calc-diag (n)
339    (interactive "P")    (interactive "P")

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

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