]> git.eshelyaron.com Git - emacs.git/commitdiff
Put missing c-keep-region-active's into the source code
authorAlan Mackenzie <acm@muc.de>
Thu, 28 Oct 2021 17:04:06 +0000 (17:04 +0000)
committerAlan Mackenzie <acm@muc.de>
Thu, 28 Oct 2021 17:04:06 +0000 (17:04 +0000)
* lisp/progmodes/cc-cmds.el (c-beginning-of-defun): Insert
c-keep-region-active when (< arg 0).
(c-forward-conditional): Insert c-keep-region-active.

lisp/progmodes/cc-cmds.el

index a9a52636b78cf2b549283e3d80c4b84fdfc68b60..502497280481282cc4f9587212b54d6db1d105a7 100644 (file)
@@ -1896,16 +1896,18 @@ defun."
            (if (< arg 0)
                (c-while-widening-to-decl-block
                 (< (setq arg (- (c-forward-to-nth-EOF-\;-or-} (- arg) where))) 0)))
-           ;; Move forward to the next opening brace....
-           (when (and (= arg 0)
-                      (progn
-                        (c-while-widening-to-decl-block
-                         (not (c-syntactic-re-search-forward "{" nil 'eob)))
-                        (eq (char-before) ?{)))
-             (backward-char)
-             ;; ... and backward to the function header.
-             (c-beginning-of-decl-1)
-             t))
+           (prog1
+               ;; Move forward to the next opening brace....
+               (when (and (= arg 0)
+                          (progn
+                            (c-while-widening-to-decl-block
+                             (not (c-syntactic-re-search-forward "{" nil 'eob)))
+                            (eq (char-before) ?{)))
+                 (backward-char)
+                 ;; ... and backward to the function header.
+                 (c-beginning-of-decl-1)
+                 t)
+             (c-keep-region-active)))
 
        ;; Move backward to the opening brace of a function, making successively
        ;; larger portions of the buffer visible as necessary.
@@ -3413,7 +3415,8 @@ to call `c-scan-conditionals' directly instead."
   (interactive "p")
   (let ((new-point (c-scan-conditionals count target-depth with-else)))
     (push-mark)
-    (goto-char new-point)))
+    (goto-char new-point))
+  (c-keep-region-active))
 
 (defun c-scan-conditionals (count &optional target-depth with-else)
   "Scan forward across COUNT preprocessor conditionals.