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

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

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

revision 1.26 by jpb, Sat May 28 04:36:16 2005 UTC revision 1.27 by jpb, Sat May 28 05:05:55 2005 UTC
# Line 816  The command \\[yank] can retrieve it fro Line 816  The command \\[yank] can retrieve it fro
816                  (aset info 3 (copy-marker (region-end))))                  (aset info 3 (copy-marker (region-end))))
817              (aset info (if (> calc-embed-arg 0) 2 3) (point-marker))              (aset info (if (> calc-embed-arg 0) 2 3) (point-marker))
818              (forward-line calc-embed-arg)              (forward-line calc-embed-arg)
819                (when (> calc-embed-arg 0)
820                  (forward-line -1)
821                  (end-of-line))
822              (aset info (if (> calc-embed-arg 0) 3 2) (point-marker)))              (aset info (if (> calc-embed-arg 0) 3 2) (point-marker)))
823            (aset info 4 (copy-marker (aref info 2)))            (aset info 4 (copy-marker (aref info 2)))
824            (aset info 5 (copy-marker (aref info 3))))            (aset info 5 (copy-marker (aref info 3))))

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

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