(sc-mark): Use mark-marker.

5ef4613c · Richard M. Stallman · 38fdf675 · 5ef4613c
Commit 5ef4613c authored Jun 08, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/sc.el lisp/sc.el +1 -1

No files found.
--- a/lisp/sc.el
+++ b/lisp/sc.el
@@ -434,7 +434,7 @@ Runs after sc-cite-original executes.")
 (defun sc-mark ()
  "Mark compatibility between emacs v18 and v19."
  (let ((zmacs-regions nil))
-    (mark)))
+    (marker-position (mark-marker))))

 (defun sc-update-gal (attribution)
  "Update the information alist.