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 |
|
|
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) |
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) |
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 |
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") |