From mboxrd@z Thu Jan  1 00:00:00 1970
From: Stefan Monnier <monnier@iro.umontreal.ca>
Subject: bug#13724: Calling 'org-babel-mark-block' with 'M-x cmd' and 'M-:
 (cmd)'
Date: Fri, 15 Feb 2013 18:50:02 -0500
Message-ID: <jwvhald16mi.fsf-monnier+emacs__40962.2083454908$1360972272$gmane$org@gnu.org>
References: <jwvr4kh32y7.fsf-monnier+emacs@gnu.org>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:60075)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1U6V2w-0001HI-4G
	for emacs-orgmode@gnu.org; Fri, 15 Feb 2013 18:50:32 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1U6V2o-0000fi-Do
	for emacs-orgmode@gnu.org; Fri, 15 Feb 2013 18:50:26 -0500
Sender: debbugs-submit-bounces@debbugs.gnu.org
Resent-Message-ID: <handler.13724.B13724.1360972252849@debbugs.gnu.org>
In-Reply-To: <jwvr4kh32y7.fsf-monnier+emacs@gnu.org> (Stefan Monnier's message
	of "Fri, 15 Feb 2013 12:30:55 -0500")
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: 13724@debbugs.gnu.org
Cc: Thorsten Jolitz <tjolitz@gmail.com>

> ,-------------------------
> | M-: (org-mark-element) RET
> `-------------------------
> moves point to the beginning of source-block (body) and returns the
> position of point without (visibly) marking the source-block body.

Indeed, thank you.  Should be fixed now, thanks to the patch below,


        Stefan


--- lisp/simple.el	2013-02-12 04:46:18 +0000
+++ lisp/simple.el	2013-02-15 17:35:00 +0000
@@ -1328,7 +1327,8 @@
 	(setq debug-on-error new-value))))
 
   (let ((print-length eval-expression-print-length)
-	(print-level eval-expression-print-level))
+	(print-level eval-expression-print-level)
+        (deactivate-mark))
     (if eval-expression-insert-value
 	(with-no-warnings
 	 (let ((standard-output (current-buffer)))