Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexhie.el @ 366:77a2fd4fd634

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merged
author HIROSE Yuuji <yuuji@gentei.org>
date Fri, 26 Dec 2014 01:06:32 +0900
parents d69fd7b1ac4d
children
comparison
equal deleted inserted replaced
300:30f1a2659a39 366:77a2fd4fd634
1 ;;; yatexhie.el --- YaTeX hierarchy browser 1 ;;; yatexhie.el --- YaTeX hierarchy browser
2 ;;; 2 ;;;
3 ;;; (c)1995-2013 by HIROSE Yuuji [yuuji@yatex.org] 3 ;;; (c)1995-2013 by HIROSE Yuuji [yuuji@yatex.org]
4 ;;; Last modified Mon Apr 1 22:43:34 2013 on firestorm 4 ;;; Last modified Sun Dec 21 14:05:20 2014 on firestorm
5 ;;; $Id$ 5 ;;; $Id$
6 6
7 ;;; Code: 7 ;;; Code:
8 ;; ----- Customizable variables ----- 8 ;; ----- Customizable variables -----
9 (defvar YaTeX-hierarchy-ignore-heading-regexp 9 (defvar YaTeX-hierarchy-ignore-heading-regexp
73 (YaTeX-switch-to-buffer file t) ;set buffer to file 73 (YaTeX-switch-to-buffer file t) ;set buffer to file
74 (or YaTeX-parent-file 74 (or YaTeX-parent-file
75 (YaTeX-get-builtin "!") 75 (YaTeX-get-builtin "!")
76 (setq YaTeX-parent-file parent)))) 76 (setq YaTeX-parent-file parent))))
77 (cons (buffer-file-name (current-buffer)) 77 (cons (buffer-file-name (current-buffer))
78 (mapcar '(lambda (f) ;return value 78 (mapcar (function ;return value
79 (YaTeX-document-hierarchy f basedir)) 79 (lambda (f)
80 (YaTeX-document-hierarchy f basedir)))
80 (YaTeX-all-included-files)))))) 81 (YaTeX-all-included-files))))))
81 (message "Parsing [%s]...done" (file-name-nondirectory file)))) 82 (message "Parsing [%s]...done" (file-name-nondirectory file))))
82 83
83 ;; ----- Functions for displaying hierarchy ----- 84 ;; ----- Functions for displaying hierarchy -----
84 85

yatex.org