[Emacs-bug-tracker] bug#6100: closed (c-beginning-of-defun doesn't push mark)

[GNU bug Tracking System]

Your message dated Wed, 12 May 2010 13:26:03 +0000
with message-id <address@hidden>
and subject line Fix
has caused the GNU bug report #6100,
regarding c-beginning-of-defun doesn't push mark
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden)


-- 
6100: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=6100
GNU Bug Tracking System
Contact address@hidden with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> c-beginning-of-defun doesn't push mark
>
>
>
>
> Date: 
>
> Tue, 04 May 2010 19:01:45 +0300
>
>
>
>
> User-agent: 
>
> Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (x86_64-pc-linux-gnu)
>
>
>
>
> There is one annoying difference between `beginning-of-defun'
> and `c-beginning-of-defun':
>
> `beginning-of-defun' and `end-of-defun' pushes the mark for the
> old point location to the mark ring with this code:
>
>   (or (not (eq this-command 'beginning-of-defun))
>       (eq last-command 'beginning-of-defun)
>       (and transient-mark-mode mark-active)
>       (push-mark))
>
> but `c-beginning-of-defun' doesn't do that.
>
> This patch add the same code to `c-beginning-of-defun' and `c-end-of-defun':
>
> === modified file 'lisp/progmodes/cc-cmds.el'
> --- lisp/progmodes/cc-cmds.el   2010-04-19 15:07:52 +0000
> +++ lisp/progmodes/cc-cmds.el   2010-05-04 16:01:05 +0000
> @@ -1501,6 +1501,11 @@ (defun c-beginning-of-defun (&optional a
>    (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 @@ (defun c-end-of-defun (&optional arg)
>    (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))
>
> -- 
> Juri Linkov
> http://www.jurta.org/emacs/
>
>
>
>
> --- End Message ---
> --- Begin Message ---
>
>
>
> Subject: 
>
> Fix
>
>
>
>
> Date: 
>
> Wed, 12 May 2010 13:26:03 +0000
>
>
>
>
> User-agent: 
>
> Mutt/1.5.9i
>
>
>
>
> c-{beginning,end}-of-function now push the mark like beginning-of-defun
> does.
>
> -- 
> Alan Mackenzie (Nuremberg, Germany).
>
>
> --- End Message ---