[Emacs-diffs] /srv/bzr/emacs/trunk r100244: * progmodes/cc-cmds.el (c-beginning-of-defun, c-end-of-defun):

[Alan Mackenzie]

------------------------------------------------------------
revno: 100244
committer: Alan Mackenzie <address@hidden>
branch nick: trunk
timestamp: Wed 2010-05-12 11:06:12 +0000
message:
  * progmodes/cc-cmds.el (c-beginning-of-defun, c-end-of-defun):
  Push the mark at the start of these functions when appropriate.
modified:
  lisp/ChangeLog
  lisp/progmodes/cc-cmds.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-05-12 00:39:46 +0000
+++ b/lisp/ChangeLog    2010-05-12 11:06:12 +0000
@@ -1,3 +1,8 @@
+2010-05-12  Alan Mackenzie  <address@hidden>
+
+       * progmodes/cc-cmds.el (c-beginning-of-defun, c-end-of-defun):
+       Push the mark at the start of these functions when appropriate.
+
 2010-05-12  Stefan Monnier  <address@hidden>
 
        * minibuffer.el (completion-cycle-threshold): New custom var.

=== modified file 'lisp/progmodes/cc-cmds.el'
--- a/lisp/progmodes/cc-cmds.el 2010-04-19 15:07:52 +0000
+++ b/lisp/progmodes/cc-cmds.el 2010-05-12 11:06:12 +0000
@@ -1501,6 +1501,11 @@
   (interactive "p")
   (or arg (setq arg 1))
 
+  (or (not (eq this-command 'c-beginning-of-defun))
+      (eq last-command 'c-beginning-of-defun)
+      (and transient-mark-mode mark-active)
+      (push-mark))
+
   (c-save-buffer-state
       (beginning-of-defun-function end-of-defun-function
        (start (point))
@@ -1604,6 +1609,11 @@
   (interactive "p")
   (or arg (setq arg 1))
 
+  (or (not (eq this-command 'c-end-of-defun))
+      (eq last-command 'c-end-of-defun)
+      (and transient-mark-mode mark-active)
+      (push-mark))
+
   (c-save-buffer-state
       (beginning-of-defun-function end-of-defun-function
        (start (point))