From ae0ab0c8676c8872267393c4c7c5874f3ccd47b4 Mon Sep 17 00:00:00 2001 From: Marc-Oliver Ihm Date: Wed, 10 Dec 2014 22:20:55 +0100 Subject: [PATCH] Bugfix version 3.0.1 of org-index.el --- contrib/lisp/org-index.el | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) diff --git a/contrib/lisp/org-index.el b/contrib/lisp/org-index.el index 34ac62894..8652b0509 100644 --- a/contrib/lisp/org-index.el +++ b/contrib/lisp/org-index.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2011-2014 Free Software Foundation, Inc. ;; Author: Marc Ihm -;; Version: 3.0 +;; Version: 3.0.1 ;; Keywords: outlines index ;; This file is not part of GNU Emacs. @@ -66,6 +66,10 @@ ;;; Change Log: +;; [2014-12-10 We] Version 3.0.1: +;; - Bugfixes related with assistant +;; - Fix for editing of category +;; ;; [2014-12-07 Sa] Version 3.0.0: ;; - New commands "add" and "delete" to easily add and remove ;; the current node to or from your index. @@ -239,7 +243,7 @@ as created by this package; they are well suited to be used outside of org. Links are normal `org-mode' links. -This is version 3.0 of org-index.el . +This is version 3.0.1 of org-index.el . The function `org-index' operates on a dedicated table, the index @@ -1491,8 +1495,6 @@ specify flag TEMPORARY for th new table temporary, maybe COMPARE it with existin (with-temp-buffer (org-insert-time-stamp nil nil t)) id)) - (save-excursion(org-index--goto-list "columns-and-flags") - ) ;; make sure, that node can be found (org-id-add-location id (buffer-file-name)) (setq buffer-save-without-query t) @@ -1502,6 +1504,10 @@ specify flag TEMPORARY for th new table temporary, maybe COMPARE it with existin (unless buffer-read-only (org-table-align)) (while (not (org-at-heading-p)) (forward-line -1)) + ;; read back some info about new index + (let ((org-index-id id)) + (org-index--verify-id)) + ;; present results to user (if temporary (progn @@ -1529,7 +1535,8 @@ specify flag TEMPORARY for th new table temporary, maybe COMPARE it with existin (if (y-or-n-p "This is your new index table. It is already set for this Emacs session, so you may try it out. Do you want to save its id to make it available for future Emacs sessions too ? ") (progn (customize-save-variable 'org-index-id id) - (error "Saved org-index-id '%s' to %s" id custom-file)) + (error "Saved org-index-id '%s' to %s" id (or custom-file + user-init-file))) (let (sq) (setq sq (format "(setq org-index-id \"%s\")" id)) (kill-new sq) @@ -1685,9 +1692,9 @@ specify flag TEMPORARY for th new table temporary, maybe COMPARE it with existin (setq content org-index--category-before)) (if (org-index--flag-p 'edit-on-add (car col-num)) - (read-from-minibuffer - (format "Edit text for column '%s': " (symbol-name (car col-num))) - content)) + (setq content (read-from-minibuffer + (format "Edit text for column '%s': " (symbol-name (car col-num))) + content))) (if (not (string= content "")) (setq args (append (list (car col-num) content) args))))