Did you already study the handle-shift-selection function?

[ndame]

> Did you already study the handle-shift-selection function?

Thanks, I've taken a look and this seems to solve the issue:

   (let ((this-command-keys-shift-translated t))
     (call-interactively 'next-line)))))


though I'm wondering why simply adding the caret to the interactive spec
doesn't fix the  issue:

  (local-set-key (kbd "S-<down>") (lambda ()
                                    (interactive "^")
                                    (if (my-context)
                                        (do 'something 'else)
                                      
                                      ;; call S-down as usual
                                      (call-interactively 'next-line))))