3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: David Gillespie <daveg@synaptics.com> |
;; Author: David Gillespie <daveg@synaptics.com> |
6 |
;; Maintainer: Colin Walters <walters@debian.org> |
;; Maintainers: D. Goel <deego@gnufans.org> |
7 |
|
;; Colin Walters <walters@debian.org> |
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
10 |
|
|
50 |
(if once (progn |
(if once (progn |
51 |
(setq calc-keep-selection nil) |
(setq calc-keep-selection nil) |
52 |
(message "(Selection will apply to next command only)"))) |
(message "(Selection will apply to next command only)"))) |
53 |
(calc-change-current-selection |
(calc-change-current-selection |
54 |
(if found |
(if found |
55 |
(if (and num (> (setq num (prefix-numeric-value num)) 0)) |
(if (and num (> (setq num (prefix-numeric-value num)) 0)) |
56 |
(progn |
(progn |
113 |
(calc-prepare-selection) |
(calc-prepare-selection) |
114 |
(let ((found (calc-find-selected-part)) |
(let ((found (calc-find-selected-part)) |
115 |
(entry calc-selection-cache-entry)) |
(entry calc-selection-cache-entry)) |
116 |
(calc-change-current-selection |
(calc-change-current-selection |
117 |
(and found |
(and found |
118 |
(let ((sel (nth 2 entry)) |
(let ((sel (nth 2 entry)) |
119 |
old index op) |
old index op) |