From mboxrd@z Thu Jan 1 00:00:00 1970 From: Paul Sexton Subject: Re: Integrating ctags & org mode (patch) Date: Tue, 15 Dec 2009 20:36:34 +0000 (UTC) Message-ID: References: <2AC5C31A-0ABA-4163-9F4F-9F0D26A6F538@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NKe8e-0001bD-L7 for emacs-orgmode@gnu.org; Tue, 15 Dec 2009 15:36:56 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1NKe8a-0001ZO-Fa for emacs-orgmode@gnu.org; Tue, 15 Dec 2009 15:36:56 -0500 Received: from [199.232.76.173] (port=38670 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NKe8a-0001ZF-6z for emacs-orgmode@gnu.org; Tue, 15 Dec 2009 15:36:52 -0500 Received: from lo.gmane.org ([80.91.229.12]:54374) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1NKe8Z-000659-Rr for emacs-orgmode@gnu.org; Tue, 15 Dec 2009 15:36:52 -0500 Received: from list by lo.gmane.org with local (Exim 4.50) id 1NKe8W-00037z-1a for emacs-orgmode@gnu.org; Tue, 15 Dec 2009 21:36:48 +0100 Received: from rp.young.med.auckland.ac.nz ([130.216.140.20]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 15 Dec 2009 21:36:48 +0100 Received: from psexton by rp.young.med.auckland.ac.nz with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 15 Dec 2009 21:36:48 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Also I realised there was a misplaced parenthesis in the "(if (y-or-n-p..." clause. Corrected patch follows. ----BEGIN PATCH for org.el (delete this line)---- 8349,8369c8349,8350 { (condition-case nil (eval cmd) { ;; ORG-TAGS { (error { (progn { (widen) { (condition-case nil (eval cmd) { (error { ;; No matching link found anywhere in this file { ;; See if we can find a tag { ;; If so, jump to it { (condition-case nil (find-tag path) { (error { (cond { (org-make-new-topics-for-missing-links-p { (if (y-or-n-p { (format "Topic `%S' not found; append to current buffer?" { path)) { (org-append-new-topic path nil))) { (t { (error "No match found")))))))))))) { --- } (condition-case nil (eval cmd) } (error (progn (widen) (eval cmd)))))) 8592,8595d8572 { ;; ORG-TAGS { ((not org-open-link-defaults-to-normal-string-search-p) { ;; We don't want to search for a plain text match. { (error "No match.")) 8651,8682d8627 { { { ;; ORG-TAGS { { (defvar org-open-link-defaults-to-normal-string-search-p nil { "Behaviour when attempting to open a 'thisfile' hyperlink for which no { EXACT match can be found (i.e. no match in angled brackets, etc). { If true (default), exhibit normal org behaviour of doing a search for a string { matching the link name. { If nil, abort the attempt to open the link.") { { { (defvar org-make-new-topics-for-missing-links-p nil { "If true, when attempting to follow a 'plain' hyperlink for which no precise { match is found, offer to append a top-level heading with the same name as the { hyperlink, to the end of the buffer.") { { { (defun org-append-new-topic (word) { (interactive "s") { (widen) { (end-of-buffer) { (newline 2) { (insert (format "* <<%s>>" word)) ; <<<>>> to make radio word { (backward-char 4) { ;;(org-update-radio-target-regexp) { (end-of-line) { (newline 2) { (next-line 2)) { { { ----END PATCH (delete this line)----