Browse Source

Fix for assistant to create index; fix for occur-command

Marc-Oliver Ihm 11 years ago
parent
commit
233c11df42
1 changed files with 114 additions and 114 deletions
  1. 114 114
      contrib/lisp/org-index.el

+ 114 - 114
contrib/lisp/org-index.el

@@ -5,7 +5,7 @@
 ;; Author: Marc Ihm <org-index@2484.de>
 ;; Author: Marc Ihm <org-index@2484.de>
 ;; Keywords: outlines, hypermedia, matching
 ;; Keywords: outlines, hypermedia, matching
 ;; Requires: org
 ;; Requires: org
-;; Version: 2.4.2
+;; Version: 2.4.3
 
 
 ;; This file is not part of GNU Emacs.
 ;; This file is not part of GNU Emacs.
 
 
@@ -72,6 +72,10 @@
 
 
 ;;; Change Log:
 ;;; Change Log:
 
 
+;;   [2014-04-26 Sa] Version 2.4.3:
+;;   - Some Bugfixes and enhancements for occur-command
+;;   - Fixes for assistant to create index table
+;;
 ;;   [2014-02-01 Sa] Version 2.4.2:
 ;;   [2014-02-01 Sa] Version 2.4.2:
 ;;   - Follow mode in occur-buffer
 ;;   - Follow mode in occur-buffer
 ;;   - Reorder for x-columns
 ;;   - Reorder for x-columns
@@ -164,6 +168,7 @@
 (defvar org-index--text-to-yank nil)        ; Text, that can be yanked after call (mostly a reference)
 (defvar org-index--text-to-yank nil)        ; Text, that can be yanked after call (mostly a reference)
 (defvar org-index--last-ref)       ; Last reference created or visited
 (defvar org-index--last-ref)       ; Last reference created or visited
 (defvar org-index--point-before nil)        ; Point in buffer with index table
 (defvar org-index--point-before nil)        ; Point in buffer with index table
+(defvar org-index--point-saved nil)         ; Saved point if we want to return
 (defvar org-index--silent nil)     ; t, if user should not be queried
 (defvar org-index--silent nil)     ; t, if user should not be queried
 (defvar org-index--preferred-command)       ; command, that is presented first
 (defvar org-index--preferred-command)       ; command, that is presented first
 (defvar org-index--active-region)  ; Active region, initially. I.e. what has been marked
 (defvar org-index--active-region)  ; Active region, initially. I.e. what has been marked
@@ -172,7 +177,8 @@
 (defvar org-index--active-window-index nil) ; Active window with index table (if any)
 (defvar org-index--active-window-index nil) ; Active window with index table (if any)
 (defvar org-index--occur-follow-mode nil)   ; True, if follow mode in occur-buffer is on    
 (defvar org-index--occur-follow-mode nil)   ; True, if follow mode in occur-buffer is on    
 
 
-(setq org-index--commands '(occur head ref link leave put enter goto help + reorder fill sort update highlight unhighlight missing statistics)) ; list of commands available
+
+(setq org-index--commands '(occur head ref link leave put enter goto help + reorder fill sort update multi-occur highlight unhighlight missing statistics)) ; list of commands available
 
 
 (defun org-index (&optional ARG)
 (defun org-index (&optional ARG)
   "Mark and find your favorite things and org-locations easily:
   "Mark and find your favorite things and org-locations easily:
@@ -185,7 +191,7 @@ References are essentially small numbers (e.g. \"R237\" or \"-455-\"),
 which are created by this package; they are well suited to be used
 which are created by this package; they are well suited to be used
 outside of org. Links are normal org-mode links.
 outside of org. Links are normal org-mode links.
 
 
-This is version 2.4.0 of org-index.
+This is version 2.4.3 of org-index.
 
 
 The function `org-index' operates on a dedicated table, the index
 The function `org-index' operates on a dedicated table, the index
 table, which lives within its own Org-mode node. The table and
 table, which lives within its own Org-mode node. The table and
@@ -224,10 +230,6 @@ Commands known:
     list of words seperated by space or comma (\",\"), to select
     list of words seperated by space or comma (\",\"), to select
     lines that contain all of the given words.
     lines that contain all of the given words.
 
 
-    If you supply a number (e.g. \"237\"): Apply emacs standard
-    multi-occur operation on all org-mode buffers to search for
-    this specific reference.
-
     You may also read the note at the end of this help on saving
     You may also read the note at the end of this help on saving
     the keystroke RET with this frequent default command.
     the keystroke RET with this frequent default command.
 
 
@@ -278,6 +280,9 @@ Commands known:
   update: For the given reference, update the line in the
   update: For the given reference, update the line in the
     index table, i.e. increment its count.
     index table, i.e. increment its count.
 
 
+  multi-occur: Apply emacs standard multi-occur operation on all
+    org-mode buffers to search for the given reference.
+
   highlight: Highlight references in active region or buffer.
   highlight: Highlight references in active region or buffer.
 
 
   unhighlight: Remove those highlights.
   unhighlight: Remove those highlights.
@@ -393,10 +398,6 @@ command \"head\" for reference \"237\".
       (setq what 'enter)
       (setq what 'enter)
       (setq what-adjusted t))
       (setq what-adjusted t))
     
     
-    ;; For a proper reference as input, we do multi-occur
-    (if (and (eq what 'occur) search-ref)
-        (setq what 'multi-occur))
-    
     ;; Check for invalid combinations of arguments; try to be helpful
     ;; Check for invalid combinations of arguments; try to be helpful
     (when (and (memq what '(head goto))
     (when (and (memq what '(head goto))
                (not search-ref)
                (not search-ref)
@@ -443,9 +444,13 @@ command \"head\" for reference \"237\".
 
 
       ;; Sort and align
       ;; Sort and align
       (org-index--sort reorder-once)
       (org-index--sort reorder-once)
-      (org-index--align))
+      (org-index--align)
+      
+      ;; Remember position for leave
+      (if org-index--point-before
+          (setq org-index--point-saved org-index--point-before)))
     
     
-    ;; Return to initial position
+    ;; prepare to return to initial position in index table
     (when initial-ref-or-link
     (when initial-ref-or-link
       (while (and (org-at-table-p)
       (while (and (org-at-table-p)
                   (not (or
                   (not (or
@@ -526,15 +531,15 @@ command \"head\" for reference \"237\".
         (org-mark-ring-goto))
         (org-mark-ring-goto))
       
       
       ;; Return to saved position in index buffer
       ;; Return to saved position in index buffer
-      (when org-index--point-before
+      (when org-index--point-saved
         ;; buffer displayed in window need to set point there first
         ;; buffer displayed in window need to set point there first
         (if (eq (window-buffer org-index--active-window-index)
         (if (eq (window-buffer org-index--active-window-index)
                 org-index--buffer)
                 org-index--buffer)
-            (set-window-point org-index--active-window-index org-index--point-before))
+            (set-window-point org-index--active-window-index (marker-position org-index--point-saved)))
         ;; set position in buffer in any case and second
         ;; set position in buffer in any case and second
         (with-current-buffer org-index--buffer
         (with-current-buffer org-index--buffer
-          (goto-char org-index--point-before)))     
-      (setq org-index--point-before nil))
+          (goto-char org-index--point-saved)))     
+      (setq org-index--point-saved nil))
 
 
 
 
      ((eq what 'goto)
      ((eq what 'goto)
@@ -1026,7 +1031,8 @@ retrieves the value of the count-column for reference 12.
     (unless search
     (unless search
       ;; Search string can come from several sources:
       ;; Search string can come from several sources:
       ;; From link or ref columns of table
       ;; From link or ref columns of table
-      (when org-index--within-node
+      (when (and org-index--within-node
+                 (org-at-table-p))
         (setq search-from-table (or (org-index--get-field :link)
         (setq search-from-table (or (org-index--get-field :link)
                                     (org-index--get-field :ref))))      
                                     (org-index--get-field :ref))))      
             
             
@@ -1085,16 +1091,16 @@ retrieves the value of the count-column for reference 12.
 
 
   ;; Check id
   ;; Check id
   (unless org-index-id
   (unless org-index-id
-    (setq org-index-id (org-index--create-new-index 
-                        t
-                        (format "No index table has been created yet." org-index-id))))
+    (org-index--create-new-index 
+     t
+     (format "No index table has been created yet." org-index-id)))
 
 
   ;; Find node
   ;; Find node
   (let (marker)      
   (let (marker)      
     (setq marker (org-id-find org-index-id 'marker))
     (setq marker (org-id-find org-index-id 'marker))
-    (unless marker (setq org-index-id (org-index--create-new-index 
-                                       t
-                                       (format "Cannot find node with id \"%s\"" org-index-id))))
+    (unless marker (org-index--create-new-index 
+                    t
+                    (format "Cannot find node with id \"%s\"" org-index-id)))
     ; Try again with new node
     ; Try again with new node
     (setq marker (org-id-find org-index-id 'marker)) 
     (setq marker (org-id-find org-index-id 'marker)) 
     (unless marker (error "Could not create node"))
     (unless marker (error "Could not create node"))
@@ -1121,9 +1127,10 @@ retrieves the value of the count-column for reference 12.
 
 
   ;; get current position in index-buffer
   ;; get current position in index-buffer
   (with-current-buffer org-index--buffer
   (with-current-buffer org-index--buffer
-    (unless (string= (org-id-get) org-index-id)
-      (unless org-index--point-before 
-        (setq org-index--point-before (point))))))
+    (setq org-index--point-before 
+          (if (string= (org-id-get) org-index-id)
+              nil
+            (point-marker)))))
 
 
 
 
 (defun org-index--parse-table ()
 (defun org-index--parse-table ()
@@ -1555,7 +1562,6 @@ retrieves the value of the count-column for reference 12.
   You can add further columns or even remove the last column. All
   You can add further columns or even remove the last column. All
   other columns are required.
   other columns are required.
 
 
-
   Finally: This node needs not be a top level node; its name is
   Finally: This node needs not be a top level node; its name is
   completely at you choice; it is found through its ID only.
   completely at you choice; it is found through its ID only.
 
 
@@ -1576,15 +1582,15 @@ retrieves the value of the count-column for reference 12.
             (org-show-context)    
             (org-show-context)    
             (show-subtree)
             (show-subtree)
             (recenter 1)
             (recenter 1)
-            (if (y-or-n-p "This is your new index table; Do you want to save its id to make it permanent ? ")
+            (setq org-index-id id)
+            (if (y-or-n-p "This is your new index table. It is already set for this emacs session. Do you want to save its id to make it available for future emacs sessions too ? ")
                 (progn
                 (progn
                   (customize-save-variable 'org-index-id id)
                   (customize-save-variable 'org-index-id id)
-                  (message "Saved org-index-id '%s' to %s" org-index-id custom-file))
+                  (error "Saved org-index-id '%s' to %s" id custom-file))
               (let (sq)
               (let (sq)
-                (setq sq (format "(setq org-index-id \"%s\")" org-index-id))
+                (setq sq (format "(setq org-index-id \"%s\")" id))
                 (kill-new sq)
                 (kill-new sq)
-                (message "Did not make the id of the new index permamanent; you may want to put\n\n   %s\n\ninto your own initialization; it is copied already, just yank it." sq))
-              id))          
+                (error "Did not make the id of the new index permamanent; you may want to put\n\n   %s\n\ninto your own initialization; it is copied already, just yank it." sq))))          
         ;; we had an error with the existing index table, so present old
         ;; we had an error with the existing index table, so present old
         ;; and new one together
         ;; and new one together
         ;; show existing index
         ;; show existing index
@@ -1606,9 +1612,8 @@ retrieves the value of the count-column for reference 12.
 
 
 (defun org-index--update-line (ref-or-link)
 (defun org-index--update-line (ref-or-link)
 
 
-  (let (initial
-        found
-        count-field)
+  (let ((newcount 0) 
+        initial)
 
 
     (with-current-buffer org-index--buffer
     (with-current-buffer org-index--buffer
       (unless buffer-read-only
       (unless buffer-read-only
@@ -1624,33 +1629,34 @@ retrieves the value of the count-column for reference 12.
         
         
         (if (not (org-at-table-p))
         (if (not (org-at-table-p))
             (error "Did not find reference or link '%s'" ref-or-link)
             (error "Did not find reference or link '%s'" ref-or-link)
-          (setq count-field (org-index--get-field :count))
-          
-          ;; update count field only if number or empty; leave :missing: and :reuse: as is
-          (if (or (not count-field)
-                  (string-match "^[0-9]+$" count-field))
-              (org-index--get-field :count
-                                    (number-to-string 
-                                     (+ 1 (string-to-number (or count-field "0"))))))
-          
-          ;; update timestamp
-          (org-table-goto-column (org-index--column-num :last))
-          (org-table-blank-field)
-          (org-insert-time-stamp nil t t)
-          
-          (setq found t))
+          (org-index--update-current-line))
       
       
-        (if initial (goto-char initial))
-        
-        found))))
+        (if initial (goto-char initial))))))
+
+
+(defun org-index--update-current-line ()
+  (let (newcount (count-field (org-index--get-field :count)))
+          
+    ;; update count field only if number or empty; leave :missing: and :reuse: as is
+    (when (or (not count-field)
+              (string-match "^[0-9]+$" count-field))
+      (setq newcount (+ 1 (string-to-number (or count-field "0"))))
+      (org-index--get-field :count
+                            (number-to-string newcount)))
+    
+    ;; update timestamp
+    (org-table-goto-column (org-index--column-num :last))
+    (org-table-blank-field)
+    (org-insert-time-stamp nil t t)))
 
 
 
 
 (defun org-index--get-field (key &optional value)
 (defun org-index--get-field (key &optional value)
   (let (field)
   (let (field)
-    (setq field (org-trim (org-table-get-field (cdr (assoc key org-index--columns)) value)))
-    (if (string= field "") (setq field nil))
+    (save-excursion
+      (setq field (org-trim (org-table-get-field (cdr (assoc key org-index--columns)) value)))
+      (if (string= field "") (setq field nil))
     
     
-    (org-no-properties field)))
+      (org-no-properties field))))
 
 
 
 
 (defun org-index--column-num (key)
 (defun org-index--column-num (key)
@@ -1741,8 +1747,6 @@ retrieves the value of the count-column for reference 12.
           (org-index--update-line link)
           (org-index--update-line link)
           (org-id-goto link)
           (org-id-goto link)
           (org-reveal)
           (org-reveal)
-          (if (eq (current-buffer) org-index--buffer)
-              (setq org-index--point-before nil))
           (setq message-text "Followed link"))
           (setq message-text "Followed link"))
       
       
       (message (format "Scanning headlines for '%s' ..." ref))
       (message (format "Scanning headlines for '%s' ..." ref))
@@ -1768,8 +1772,6 @@ retrieves the value of the count-column for reference 12.
                 nil))
                 nil))
 
 
             (progn
             (progn
-              (if (eq buffer org-index--buffer)
-                  (setq org-index--point-before nil))
               (setq message-text (format "Found '%s'" (or ref link)))
               (setq message-text (format "Found '%s'" (or ref link)))
               (if other
               (if other
                   (progn
                   (progn
@@ -1791,7 +1793,8 @@ retrieves the value of the count-column for reference 12.
         (word "") ; last word to search for growing and shrinking on keystrokes
         (word "") ; last word to search for growing and shrinking on keystrokes
         (prompt "Search for: ")
         (prompt "Search for: ")
         (hint "")
         (hint "")
-        words                     ; list of other words that must match too
+        (key-help "<up>, <down> move. <return> finds node, <S-return> goes to table, <M-return> updates count. TAB finds in other window.\n")
+        words                      ; list of other words that must match too
         occur-buffer 
         occur-buffer 
         lines-to-show              ; number of lines to show in window
         lines-to-show              ; number of lines to show in window
         start-of-lines             ; position, where lines begin
         start-of-lines             ; position, where lines begin
@@ -1805,6 +1808,8 @@ retrieves the value of the count-column for reference 12.
         in-c-backspace             ; true while processing C-backspace
         in-c-backspace             ; true while processing C-backspace
         show-headings              ; true, if headings should be shown
         show-headings              ; true, if headings should be shown
         fun-on-ret                 ; function to be executed, if return is pressed
         fun-on-ret                 ; function to be executed, if return is pressed
+        fun-on-s-ret               ; shift
+        fun-on-m-ret               ; shift
         fun-on-tab                 ; function to be executed, if letter TAB is pressed
         fun-on-tab                 ; function to be executed, if letter TAB is pressed
         ret from to key)
         ret from to key)
         
         
@@ -1819,16 +1824,29 @@ retrieves the value of the count-column for reference 12.
 
 
         (set-keymap-parent keymap org-mode-map)
         (set-keymap-parent keymap org-mode-map)
         (setq fun-on-ret (lambda () (interactive) (org-index--occur-find-heading nil)))
         (setq fun-on-ret (lambda () (interactive) (org-index--occur-find-heading nil)))
-        (define-key keymap (kbd "RET") fun-on-ret)
+        (define-key keymap [return] fun-on-ret)
+        (setq fun-on-s-ret (lambda () (interactive) 
+                             (when (org-at-table-p)
+                               (org-table-goto-column (org-index--column-num :ref))
+                               (org-index 'goto))))
+        (define-key keymap [S-return] fun-on-s-ret)
+        (setq fun-on-m-ret (lambda () (interactive) 
+                             (when (org-at-table-p)
+                               (org-index--update-current-line)
+                               (org-table-align)
+                               (org-table-goto-column (org-index--column-num :count))
+                               (message (format "New count is %s" (org-trim (org-table-get-field))))
+                               (org-index--update-line (org-index--get-field :ref)))))
+        (define-key keymap [M-return] fun-on-m-ret)
         (setq fun-on-tab (lambda () (interactive)
         (setq fun-on-tab (lambda () (interactive)
                            (org-index--occur-find-heading t)
                            (org-index--occur-find-heading t)
                            (setq org-index--occur-follow-mode (not org-index--occur-follow-mode))))
                            (setq org-index--occur-follow-mode (not org-index--occur-follow-mode))))
-        (define-key keymap (kbd "<tab>") fun-on-tab)
+        (define-key keymap [tab] fun-on-tab)
         (define-key keymap [(control ?i)] fun-on-tab)
         (define-key keymap [(control ?i)] fun-on-tab)
-        (define-key keymap (kbd "<up>") (lambda () (interactive)
+        (define-key keymap [up] (lambda () (interactive)
                                           (forward-line -1)
                                           (forward-line -1)
                                           (if org-index--occur-follow-mode (org-index--occur-find-heading t))))
                                           (if org-index--occur-follow-mode (org-index--occur-find-heading t))))
-        (define-key keymap (kbd "<down>") (lambda () (interactive)
+        (define-key keymap [down] (lambda () (interactive)
                                             (forward-line 1)
                                             (forward-line 1)
                                             (if org-index--occur-follow-mode (org-index--occur-find-heading t))))
                                             (if org-index--occur-follow-mode (org-index--occur-find-heading t))))
         (use-local-map keymap)))
         (use-local-map keymap)))
@@ -1849,13 +1867,12 @@ retrieves the value of the count-column for reference 12.
           ;; fill in header
           ;; fill in header
           (erase-buffer)
           (erase-buffer)
           (insert (concat "Incremental search, showing one window of matches. '?' toggles help.\n\n"))
           (insert (concat "Incremental search, showing one window of matches. '?' toggles help.\n\n"))
-          (setq start-of-lines (point))
+          (setq start-of-lines (point-marker))
           (setq start-of-help start-of-lines)
           (setq start-of-help start-of-lines)
           (setq cursor-type 'hollow)
           (setq cursor-type 'hollow)
           
           
           ;; get window size of occur-buffer as number of lines to be searched
           ;; get window size of occur-buffer as number of lines to be searched
           (setq lines-to-show (+ (- (window-body-height) (line-number-at-pos)) 1))
           (setq lines-to-show (+ (- (window-body-height) (line-number-at-pos)) 1))
-          
 
 
           ;; fill initially
           ;; fill initially
           (setq ret (org-index--get-matching-lines nil lines-to-show below-hline-bol))
           (setq ret (org-index--get-matching-lines nil lines-to-show below-hline-bol))
@@ -1887,7 +1904,7 @@ retrieves the value of the count-column for reference 12.
                                          (if (string= search-text "") "" " ")
                                          (if (string= search-text "") "" " ")
                                          hint))))
                                          hint))))
                     (setq hint "")
                     (setq hint "")
-                    (setq exit-gracefully (member key (list 'up 'down 'left 'right 'RET ?\C-g ?\C-m 'C-return ?\C-i 'TAB)))))
+                    (setq exit-gracefully (member key (list 'up 'down 'left 'right 'RET ?\C-g ?\C-m 'C-return 'S-return ?\C-i 'TAB)))))
                 
                 
                 (not exit-gracefully))
                 (not exit-gracefully))
             
             
@@ -1960,21 +1977,23 @@ retrieves the value of the count-column for reference 12.
               (setq word ""))
               (setq word ""))
 
 
 
 
-             ((eq key ??)    ; tab: toggle display of headlines and help
+             ((eq key ??)    ; question mark: toggle display of headlines and help
               (setq show-headings (not show-headings))
               (setq show-headings (not show-headings))
               (goto-char start-of-lines)
               (goto-char start-of-lines)
               (if show-headings
               (if show-headings
                   (progn
                   (progn
                     (forward-line -1)
                     (forward-line -1)
-                    (kill-line)
-                    (setq start-of-help (point))
-                    (if (display-graphic-p)
-                        (insert "<backspace> and <c-backspace> erase, cursor keys move. RET finds node, C-RET all matches.\nTAB finds in other window. Comma seperates words, any other key adds to search word.\n\n")
-                      (insert "BACKSPACE to erase,  to finish. Then cursor keys and RET to find node.\n\n"))
+;                    (kill-line)
+                    (setq start-of-help (point-marker))
+                    (insert "Normal keys add to search word, SPACE or COMMA start new word, BACKSPACE and C-BACKSPACE erase char or word. Every other key ends search: <C-return> completes list of matches. ")
+                    (insert key-help)
+                    (goto-char start-of-help)
+                    (fill-paragraph)
+                    (goto-char start-of-lines)
                     (insert org-index--headings))
                     (insert org-index--headings))
                 (delete-region start-of-help start-of-lines)
                 (delete-region start-of-help start-of-lines)
-                (insert "\n"))
-              (setq start-of-lines (point)))
+                (insert "\n\n"))
+              (setq start-of-lines (point-marker)))
 
 
 
 
              ((and (integerp key) 
              ((and (integerp key) 
@@ -2038,7 +2057,7 @@ retrieves the value of the count-column for reference 12.
               (forward-line 1)))
               (forward-line 1)))
 
 
           ;; get all the rest
           ;; get all the rest
-          (when (eq key (kbd "<c-return>"))
+          (when (eq key 'C-return)
             (message "Getting all matches ...")
             (message "Getting all matches ...")
             (setq ret (org-index--get-matching-lines (cons word words) 0 (car left-off-at)))
             (setq ret (org-index--get-matching-lines (cons word words) 0 (car left-off-at)))
             (message "done.")
             (message "done.")
@@ -2052,15 +2071,18 @@ retrieves the value of the count-column for reference 12.
         (delete-region (point-min) (point))
         (delete-region (point-min) (point))
         (insert (format  (concat (if exit-gracefully "Search is done;" "Search aborted;")
         (insert (format  (concat (if exit-gracefully "Search is done;" "Search aborted;")
                                  (if (or at-end (eq key 'C-return)) 
                                  (if (or at-end (eq key 'C-return)) 
-                                     " showing all %d matches." 
-                                   " showing only some matches.")
-                                 " Use cursor keys to move, press RET or TAB to find node.\n\n")
+                                     " showing all %d matches. " 
+                                   " showing only some matches. ")
+                                 key-help)
                          numlines))
                          numlines))
+        (insert "\n")
+        (setq start-of-lines (point-marker))
+        (goto-char (point-min))
+        (fill-paragraph)
+        (goto-char start-of-lines)
         (if show-headings (insert "\n\n" org-index--headings)))
         (if show-headings (insert "\n\n" org-index--headings)))
       (forward-line))
       (forward-line))
     
     
-    (setq buffer-read-only t)
-
     ;; perform action according to last char
     ;; perform action according to last char
     (forward-line -1)
     (forward-line -1)
     (cond 
     (cond 
@@ -2077,11 +2099,12 @@ retrieves the value of the count-column for reference 12.
      ((eq key 'down)
      ((eq key 'down)
       (forward-line 1))
       (forward-line 1))
 
 
-     ((eq key 'left)
-      (forward-char -1))
+     ((eq key 'M-return)
+      (funcall fun-on-m-ret))
+
+     ((eq key 'S-return)
+      (funcall fun-on-s-ret)))))
 
 
-     ((eq key 'right)
-      (forward-char 1)))))
 
 
 (defun org-index--occur-find-heading (x) 
 (defun org-index--occur-find-heading (x) 
   "helper for keymap of occur"
   "helper for keymap of occur"
@@ -2168,34 +2191,11 @@ retrieves the value of the count-column for reference 12.
   (let ((found-all t))
   (let ((found-all t))
     (setq line (downcase line))
     (setq line (downcase line))
     (catch 'not-found
     (catch 'not-found
-        (dolist (w words)
-          (or (search w line)
-              (throw 'not-found nil)))
-        t)))
-
+      (dolist (w words)
+        (or (search w line)
+            (throw 'not-found nil)))
+      t)))
 
 
-(defun org-index--dump-variables ()
-  "Dump variables of org-index; mostly for debugging"
-  (interactive)
-  "Dump all variables of org-index for debugging"
- (let ((buff (get-buffer-create "*org-index-dump-variables*"))
-       (maxlen 0)
-       vars name value)
-       
-   (with-current-buffer buff 
-     (erase-buffer)
-     (mapatoms (lambda (s) (when (and (boundp s)
-                                    (string-prefix-p "org-index-" (symbol-name s)))
-                             
-                             (setq name (symbol-name s))
-                             (setq value (symbol-value s))
-                             (setq vars (cons (cons name value) vars))
-                             (if (> (length name) maxlen)
-                                 (setq maxlen (length name))))))
-     (setq vars (sort vars (lambda (x y) (string< (car x) (car y)))))
-     (mapc (lambda (x) (insert (format (format "%%-%ds: %%s\n" (+ maxlen 1)) (car x) (cdr x)))) 
-           vars)
-     (pop-to-buffer buff))))
 
 
 
 
 (defadvice org-mark-ring-goto (after org-index--advice-text-to-yank activate)
 (defadvice org-mark-ring-goto (after org-index--advice-text-to-yank activate)