diff options
| -rw-r--r-- | lisp/calc/calc-sel.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/calc/calc-sel.el b/lisp/calc/calc-sel.el index 05ea6b82993..5eabeeeda39 100644 --- a/lisp/calc/calc-sel.el +++ b/lisp/calc/calc-sel.el | |||
| @@ -3,8 +3,7 @@ | |||
| 3 | ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: David Gillespie <daveg@synaptics.com> | 5 | ;; Author: David Gillespie <daveg@synaptics.com> |
| 6 | ;; Maintainers: D. Goel <deego@gnufans.org> | 6 | ;; Maintainer: Jay Belanger <belanger@truman.edu> |
| 7 | ;; Colin Walters <walters@debian.org> | ||
| 8 | 7 | ||
| 9 | ;; This file is part of GNU Emacs. | 8 | ;; This file is part of GNU Emacs. |
| 10 | 9 | ||
| @@ -416,6 +415,10 @@ | |||
| 416 | (setcar x (list 'cplx (car x) 0)) | 415 | (setcar x (list 'cplx (car x) 0)) |
| 417 | (calc-encase-atoms-rec (car x))))))) | 416 | (calc-encase-atoms-rec (car x))))))) |
| 418 | 417 | ||
| 418 | ;; The variable math-comp-sel-tag is local to calc-find-selected-part, | ||
| 419 | ;; but is used by math-comp-sel-flat-term and math-comp-add-string-sel | ||
| 420 | ;; in calccomp.el, which are called (indirectly) by calc-find-selected-part. | ||
| 421 | |||
| 419 | (defun calc-find-selected-part () | 422 | (defun calc-find-selected-part () |
| 420 | (let* ((math-comp-sel-hpos (- (current-column) calc-selection-cache-offset)) | 423 | (let* ((math-comp-sel-hpos (- (current-column) calc-selection-cache-offset)) |
| 421 | toppt | 424 | toppt |