[elpa] externals/crisp 810f057 4/5: * crisp/crisp.el (crisp-home, crisp-end): Obey shift-select-mode

[Stefan Monnier]

branch: externals/crisp
commit 810f057c640043ca9e419248b73f43d82b1a47a0
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * crisp/crisp.el (crisp-home, crisp-end): Obey shift-select-mode
---
 crisp.el | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/crisp.el b/crisp.el
index f37affd..e7835f2 100644
--- a/crisp.el
+++ b/crisp.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Luke Lee <luke.yx.lee@gmail.com>
 ;; Keywords: emulations brief crisp
 ;; Package-Require: ((cl-lib "0.5"))
-;; Version: 1.3.5
+;; Version: 1.3.6
 
 ;; This file is part of GNU Emacs.
 
@@ -318,7 +318,7 @@ the region."
 The first use moves point to beginning of the line.  Second
 consecutive use moves point to beginning of the screen.  Third
 consecutive use moves point to the beginning of the buffer."
-  (interactive nil)
+  (interactive "^")
   (cond
     ((and (eq last-command 'crisp-home)
          (eq crisp-last-last-command 'crisp-home))
@@ -334,7 +334,7 @@ consecutive use moves point to the beginning of the buffer."
 The first use moves point to end of the line.  Second
 consecutive use moves point to the end of the screen.  Third
 consecutive use moves point to the end of the buffer."
-  (interactive nil)
+  (interactive "^")
   (cond
     ((and (eq last-command 'crisp-end)
          (eq crisp-last-last-command 'crisp-end))
@@ -386,11 +386,6 @@ if ARG is omitted or nil."
    (t ;; not crisp-mode
     (cl-callf (lambda (binds) (delq crisp-mode-map binds)) (cdr global-map)))))
 
-;; People might use Apropos on `brief'.
-;; Interaction with other packages.
-(put 'crisp-home 'CUA 'move)
-(put 'crisp-end  'CUA 'move)
-
 (run-hooks 'crisp-load-hook)
 (provide 'crisp)