[elpa] master 7cacd8a: * crisp/crisp.el (crisp-home, crisp-end): Obey shift-select-mode

[Stefan Monnier]

branch: master
commit 7cacd8a7619db4cacbae3538d3ef50df338ffdd7
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

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

diff --git a/packages/crisp/crisp.el b/packages/crisp/crisp.el
index f37affd..e7835f2 100644
--- a/packages/crisp/crisp.el
+++ b/packages/crisp/crisp.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Luke Lee <address@hidden>
 ;; 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)