changeset 15931:c729af982039

(ensure-mark): Minor rewrite. (scroll-down-mark): Handle pc-select-override-scroll-error, (scroll-down-nomark): Likewise. (scroll-up-mark, scroll-up-nomark): Likewise. (pc-selection-mode): Get rid of the advice on scroll-up, scroll-down.
author Richard M. Stallman <rms@gnu.org>
date Mon, 26 Aug 1996 15:15:02 +0000
parents 811f16bdff08
children e4d0cf418b2b
files lisp/emulation/pc-select.el
diffstat 1 files changed, 18 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/pc-select.el	Mon Aug 26 14:46:44 1996 +0000
+++ b/lisp/emulation/pc-select.el	Mon Aug 26 15:15:02 1996 +0000
@@ -108,7 +108,7 @@
 (defun ensure-mark()
   ;; make sure mark is active
   ;; test if it is active, if it isn't, set it and activate it
-  (and (not mark-active) (set-mark-command nil)))
+  (or mark-active (set-mark-command nil)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;;; forward and mark
@@ -196,7 +196,10 @@
 When calling from a program, supply a number as argument or nil."
   (interactive "P") 
   (ensure-mark)
-  (scroll-down arg))
+  (cond (pc-select-override-scroll-error
+	 (condition-case nil (scroll-down arg)
+	   (beginning-of-buffer (goto-char (point-min)))))
+	(t (scroll-down arg))))
 
 (defun end-of-buffer-mark (&optional arg)
   "Ensure mark is active; move point to the end of the buffer.
@@ -318,7 +321,10 @@
 When calling from a program, supply a number as argument or nil."
   (interactive "P")
   (setq mark-active nil)
-  (scroll-down arg))
+  (cond (pc-select-override-scroll-error
+	 (condition-case nil (scroll-down arg)
+	   (beginning-of-buffer (goto-char (point-min)))))
+	(t (scroll-down arg))))
 
 (defun end-of-buffer-nomark (&optional arg)
   "Deactivate mark; move point to the end of the buffer.
@@ -422,7 +428,10 @@
 When calling from a program, supply a number as argument or nil."
   (interactive "P")
   (ensure-mark)
-  (scroll-up arg))
+  (cond (pc-select-override-scroll-error
+	 (condition-case nil (scroll-up arg)
+	   (end-of-buffer (goto-char (point-max)))))
+	(t (scroll-up arg))))
 
 (defun beginning-of-buffer-mark (&optional arg)
   "Ensure mark is active; move point to the beginning of the buffer.
@@ -508,7 +517,10 @@
 When calling from a program, supply a number as argument or nil."
   (interactive "P")
   (setq mark-active nil)
-  (scroll-up arg))
+  (cond (pc-select-override-scroll-error
+	 (condition-case nil (scroll-up arg)
+	   (end-of-buffer (goto-char (point-max)))))
+	(t (scroll-up arg))))
 
 (defun beginning-of-buffer-nomark (&optional arg)
   "Deactivate mark; move point to the beginning of the buffer.
@@ -673,14 +685,5 @@
   (setq transient-mark-mode t)
   (setq mark-even-if-inactive t)
   (delete-selection-mode 1)
-  (cond (pc-select-override-scroll-error
-	 (defadvice scroll-up (around scroll-to-bottom-if-eob activate)
-	   (condition-case nil
-	       ad-do-it
-	     (end-of-buffer (goto-char (point-max)))))
-	 (defadvice scroll-down (around scroll-to-top-if-bob activate)
-	   (condition-case nil
-	       ad-do-it
-	     (beginning-of-buffer (goto-char (point-min))))))))
-
+)
 ;;; pc-select.el ends here