# HG changeset patch # User Oleksandr Gavenko # Date 1356039745 -7200 # Node ID e88896e74332a036e8acf391db74662bcede13d6 # Parent 3432d1144a70bdbe66d644b07151ed014d60afe4# Parent ff0b8955a3c02e0f70ef2bb30e9eee3675ed6caa merged diff -r 3432d1144a70 -r e88896e74332 .emacs-my --- a/.emacs-my Wed Dec 19 11:15:54 2012 +0200 +++ b/.emacs-my Thu Dec 20 23:42:25 2012 +0200 @@ -1267,6 +1267,7 @@ org-reverse-note-order t org-hide-leading-stars t org-tags-column 64 + org-archive-save-context-info '(time file olpath todo itags) ) (setq my-org-agenda-todo-file (concat org-directory "/TODO.org")) (setq my-org-agenda-note-file (concat org-directory "/NOTE.org")) @@ -1275,7 +1276,7 @@ (define-key global-map "\C-ve" (lambda nil (interactive) (find-file my-org-agenda-note-file))) ;; My tags for remember buffer. - (setq org-tag-persistent-alist + (setq org-tag-alist '( ("ADMIN" . ?a) ("BLOG" . ?b) @@ -1290,6 +1291,9 @@ ("READ" . ?r) ("SEE" . ?s) )) + ;; With this variable tags duplicated in *Org Tags* menu. I use + ;; `org-tag-alist' instead until bug fixed. + (setq org-tag-persistent-alist nil) (when (or (featurep 'remember) (fboundp 'remember)) (setq remember-annotation-functions '(org-remember-annotation)) @@ -2164,6 +2168,20 @@ ) )) +(defun my-dump-funcs () + "Dump all function calls in current buffer. Useful to explore +elisp API from somebody else files." + (interactive) + (let* ( (cur-buffer (current-buffer)) (new-buffer (get-buffer-create (concat (buffer-name cur-buffer) "-funcs.el"))) symb ) + (while (search-forward-regexp "([[:alnum:]*]" nil t) + (setq symb (thing-at-point 'symbol)) + (with-current-buffer new-buffer + (insert-string symb) + (insert-char ?\n 1))) + (switch-to-buffer new-buffer) + (shell-command-on-region (point-min) (point-max) "sort -u" nil t) + )) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (message "C, c-mode, C++, c++-mode") diff -r 3432d1144a70 -r e88896e74332 Makefile --- a/Makefile Wed Dec 19 11:15:54 2012 +0200 +++ b/Makefile Thu Dec 20 23:42:25 2012 +0200 @@ -92,7 +92,7 @@ for file in $(FILES_MODE_EL); do \ cp -f $$file $(HOME)/.emacs.d/my-lisp; \ done - $(EMACS) --batch \ + $(EMACS) -Q --batch \ --eval='(let ( (generated-autoload-file "~/.emacs.d/my-lisp/autoload-my.el") ) (update-directory-autoloads "~/.emacs.d/my-lisp") )' ./.emacs-autogen.sh $(HOME)/.emacs-autogen