ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug fixes in org-ctags.el

This commit is contained in:
Carsten Dominik 2010-01-18 08:21:33 +01:00
parent a1709ba641
commit 53868111d0
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2010-01-18 Carsten Dominik <carsten.dominik@gmail.com>
* org-ctags.el (org-ctags-enable): Change order of functions.
(org-ctags-create-tags): Add wildcard to file name expansion.
2010-01-17 Carsten Dominik <carsten.dominik@gmail.com> 2010-01-17 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-entry-properties): Fix some important bugs. * org.el (org-entry-properties): Fix some important bugs.

6
lisp/org-ctags.el
View File

@ -194,8 +194,8 @@ The following patterns are replaced in the string:
(defun org-ctags-enable () (defun org-ctags-enable ()
(put 'org-mode 'find-tag-default-function 'org-ctags-find-tag-at-point) (put 'org-mode 'find-tag-default-function 'org-ctags-find-tag-at-point)
(setq org-ctags-enabled-p t) (setq org-ctags-enabled-p t)
(dolist (fn (reverse org-ctags-open-link-functions)) (dolist (fn org-ctags-open-link-functions)
(add-hook 'org-open-link-functions fn))) (add-hook 'org-open-link-functions fn t)))
;;; General utility functions. =============================================== ;;; General utility functions. ===============================================
@ -472,7 +472,7 @@ subdirectories contain large numbers of taggable files."
org-ctags-path-to-ctags org-ctags-path-to-ctags
org-ctags-tag-regexp org-ctags-tag-regexp
(expand-file-name (concat dir-name "/TAGS")) (expand-file-name (concat dir-name "/TAGS"))
(expand-file-name (concat dir-name "/"))))) (expand-file-name (concat dir-name "/*")))))
(cond (cond
((eql 0 exitcode) ((eql 0 exitcode)
(set (make-local-variable 'org-ctags-tag-list) (set (make-local-variable 'org-ctags-tag-list)