From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ian Kelling Subject: [PATCH] Make the point visible when jumping to the mark Date: Wed, 30 Apr 2014 21:54:08 -0700 Message-ID: <874n1aq9y5.fsf@treetowl.lan> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:44230) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WfkfQ-0000sW-U3 for emacs-orgmode@gnu.org; Thu, 01 May 2014 02:40:31 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WfkfK-0001Lb-Lz for emacs-orgmode@gnu.org; Thu, 01 May 2014 02:40:24 -0400 Received: from out5-smtp.messagingengine.com ([66.111.4.29]:59067) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WfkfK-0001Ko-IM for emacs-orgmode@gnu.org; Thu, 01 May 2014 02:40:18 -0400 Received: from treetowl.lan (unknown [73.53.70.213]) by mail.messagingengine.com (Postfix) with ESMTPA id B0E5CC007AB for ; Thu, 1 May 2014 02:40:16 -0400 (EDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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: emacs-orgmode@gnu.org >From 9191e4a364e251119cf8b7c72e41f6c0d09583f2 Mon Sep 17 00:00:00 2001 Message-ID: <87ha5aqa93.fsf@treetowl.lan> MIME-Version: 1.0 Content-Type: text/plain *lisp/org.el: Advise commands which jump to the mark --- There are several non-org commands that jump to a location and would be unwieldy if the location remained hidden, (isearch, bookmark-jump, save-place), but org-mode has code to fix them. In this patch, I followed their example. I have an emacs fsf copyright assignment completed & on file with fsf, I can send gpg signed copy if you need it. - Ian Kelling lisp/org.el | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/lisp/org.el b/lisp/org.el index 44a4e44..9365059 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -24326,6 +24326,27 @@ To get rid of the restriction, use \\[org-agenda-remove-restriction-lock]." (outline-invisible-p))) (org-show-context 'bookmark-jump))) +(eval-after-load "simple" + '(defadvice set-mark-command (after org-make-visible activate) + "Make the point visible with `org-show-context'." + (org-mark-jump-unhide))) + +(eval-after-load "simple" + '(defadvice exchange-point-and-mark (after org-make-visible activate) + "Make the point visible with `org-show-context'." + (org-mark-jump-unhide))) + +(eval-after-load "simple" + '(defadvice pop-global-mark (after org-make-visible activate) + "Make the point visible with `org-show-context'." + (org-mark-jump-unhide))) + +(defun org-mark-jump-unhide () + "Make the point visible with `org-show-context' after jumping to the mark." + (when (and (derived-mode-p 'org-mode) + (outline-invisible-p)) + (org-show-context 'mark-goto))) + ;; Make session.el ignore our circular variable (defvar session-globals-exclude) (eval-after-load "session" -- 1.7.10.4