[Emacs-diffs] Changes to emacs/lisp/calc/calc-sel.el

[Juanma Barranquero]

Index: emacs/lisp/calc/calc-sel.el
diff -c emacs/lisp/calc/calc-sel.el:1.5 emacs/lisp/calc/calc-sel.el:1.6
*** emacs/lisp/calc/calc-sel.el:1.5     Wed Jan 15 10:16:25 2003
--- emacs/lisp/calc/calc-sel.el Tue Feb  4 07:47:10 2003
***************
*** 3,9 ****
  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
  
  ;; Author: David Gillespie <address@hidden>
! ;; Maintainers: D. Goel <address@hidden> 
  ;;              Colin Walters <address@hidden>
  
  ;; This file is part of GNU Emacs.
--- 3,9 ----
  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
  
  ;; Author: David Gillespie <address@hidden>
! ;; Maintainers: D. Goel <address@hidden>
  ;;              Colin Walters <address@hidden>
  
  ;; This file is part of GNU Emacs.
***************
*** 50,56 ****
           (if once (progn
                      (setq calc-keep-selection nil)
                      (message "(Selection will apply to next command only)")))
!          (calc-change-current-selection 
            (if found
                (if (and num (> (setq num (prefix-numeric-value num)) 0))
                    (progn
--- 50,56 ----
           (if once (progn
                      (setq calc-keep-selection nil)
                      (message "(Selection will apply to next command only)")))
!          (calc-change-current-selection
            (if found
                (if (and num (> (setq num (prefix-numeric-value num)) 0))
                    (progn
***************
*** 113,119 ****
     (calc-prepare-selection)
     (let ((found (calc-find-selected-part))
         (entry calc-selection-cache-entry))
!      (calc-change-current-selection 
        (and found
           (let ((sel (nth 2 entry))
                 old index op)
--- 113,119 ----
     (calc-prepare-selection)
     (let ((found (calc-find-selected-part))
         (entry calc-selection-cache-entry))
!      (calc-change-current-selection
        (and found
           (let ((sel (nth 2 entry))
                 old index op)