public/elisp-vcs
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update reftex, dvc

Browse Source
This commit is contained in:
Kai Tetzlaff 2010-02-01 22:42:24 +01:00
parent cd0a7d42a0
commit 4a2fad5882
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
dvc/lisp/dvc-bookmarks.el
View File

@ -167,7 +167,8 @@ Must be non-nil for some featurs of dvc-bookmarks to work.")
(define-key map "\C-y" 'dvc-bookmarks-yank)
(define-key map "\C-k" 'dvc-bookmarks-kill)
(define-key map "D" 'dvc-bookmarks-delete)
(define-key map "H" 'dvc-bookmarks-show-or-hide-subtree)
(define-key map "Hs" 'dvc-bookmarks-show-or-hide-subtree)
(define-key map "Ha" 'dvc-bookmarks-show-or-hide-all-subtrees)
(define-key map "S" 'dvc-bookmarks-set-tree-properties)
(define-key map "s" 'dvc-bookmarks-status)
(define-key map "d" 'dvc-bookmarks-diff)
@ -1184,6 +1185,18 @@ or in the same sublist"
(if (not (member parent dvc-bookmarks-hidden-subtree)) t nil))))
(goto-char pos)))
(defun dvc-bookmarks-show-or-hide-all-subtrees ()
"Toggle visibility of all subtrees."
(interactive)
(with-current-buffer "*dvc-bookmarks*"
(goto-char (point-min))
(save-excursion
(while (re-search-forward "^[^ ].+" nil t)
(dvc-bookmarks-show-or-hide-subtree)
(end-of-line)))
(forward-line 1)))
(defvar dvc-bookmarks-tmp-yank-item '("hg" (local-tree "~/work/hg/hg")))
(defun dvc-bookmarks-delete-at-point ()