Hi,
this one adds the possibility to describe an emacs command to
`anything-source-emacs-commands'.
--8<---------------cut here---------------start------------->8---
diff -u /home/heimdall/elisp/anything.el.orig /home/heimdall/elisp/anything.el
--- /home/heimdall/elisp/anything.el.orig 2007-07-20 12:00:26.000000000
+0200
+++ /home/heimdall/elisp/anything.el 2007-07-20 16:26:31.000000000 +0200
@@ -58,8 +58,7 @@
;; This is only an example. Customize it to your own taste!
(defvar anything-sources `(((name . "Buffers")
(candidates . anything-buffer-list)
- (action . (("Switch to Buffer" . switch-to-buffer)
- ("Kill Buffer" . kill-buffer))))
+ (type . buffer))
((name . "File Name History")
(candidates . file-name-history)
@@ -195,7 +194,11 @@
("Delete File" . (lambda (file)
(if (y-or-n-p (format "Really delete file %s? "
file))
- (delete-file file)))))))
+ (delete-file file))))))
+ (buffer . (("Switch to Buffer" . switch-to-buffer)
+ ("Pop to Buffer" . pop-to-buffer)
+ ("Display Buffer" . display-buffer)
+ ("Kill Buffer" . kill-buffer))))
"A list of (TYPE . ACTION) pairs specifying actions for sources
which have no action defined. See the `action' attribute of
`anything-sources' for possible action values.")
@@ -291,8 +294,12 @@
(push (symbol-name a)
commands))))
(sort commands 'string-lessp)))
- (action . (lambda (command-name)
- (call-interactively (intern command-name)))))
+ (action . (("Execute Command" . (lambda (command-name)
+ (call-interactively
+ (intern command-name))))
+ ("Describe Command" . (lambda (command-name)
+ (describe-function
+ (intern command-name)))))))
"Source for completing and invoking Emacs commands.")
Diff finished. Fri Jul 20 16:27:22 2007
--8<---------------cut here---------------end--------------->8---
Bye,
Tassilo
--
VI VI VI - The Roman Number Of The Beast
_______________________________________________
gnu-emacs-sources mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources
