From 90dc0a7754c816ebe273f579464d534ea2945d37 Mon Sep 17 00:00:00 2001 From: Sameer Rahmani Date: Sun, 4 Mar 2018 00:54:30 +0000 Subject: [PATCH] describe-extension has been added --- lib/fg42/extension.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lib/fg42/extension.el b/lib/fg42/extension.el index 2e4aa17..0ac0a7e 100644 --- a/lib/fg42/extension.el +++ b/lib/fg42/extension.el @@ -61,10 +61,14 @@ to them. (defun describe-extension (extension) "Show the doc-string of the EXTENSION." (interactive) - (let ((doc-file (fg42-extension-docs (symbol-value extension)))) - (find-file (concat fg42-home "/" doc-file)) - (rename-buffer (concat "*" extension " docs*")) - (read-only-mode t))) + (let ((doc-file (fg42-extension-docs (symbol-value extension))) + (b (get-buffer-create (concat "*" (symbol-name extension) " docs*")))) + (set-buffer b) + (insert-file-contents (concat fg42-home "/" doc-file)) + (read-only-mode t) + (switch-to-buffer b) + (org-mode))) + (provide 'fg42/extension) ;;; extension ends here