diff --git a/lisp/my/my-org-article.el b/lisp/my/my-org-article.el index b56f129d..abf76860 100644 --- a/lisp/my/my-org-article.el +++ b/lisp/my/my-org-article.el @@ -2402,7 +2402,7 @@ a:link::selection, a:link::-moz-selection { :package-version '(Org . "8.0") :type 'string) ;;;###autoload -(put 'org-html-head 'safe-local-variable 'stringp) +(put 'my-org-article-html-head 'safe-local-variable 'stringp) ;;; Export functions @@ -2425,6 +2425,7 @@ a:link::selection, a:link::-moz-selection { (org-export-to-file 'article-html file async subtreep visible-only body-only ext-plist))) +;;;###autoload (defun my-org-article-help () "Open the `my-org-article' manual." (interactive) diff --git a/lisp/my/my-tool-bar.el b/lisp/my/my-tool-bar.el index e19dd157..57a0281d 100644 --- a/lisp/my/my-tool-bar.el +++ b/lisp/my/my-tool-bar.el @@ -179,11 +179,16 @@ (defun my-tool-bar-function-play (event) "Run `C-c'." (interactive "e") - (let () - (pcase major-mode - ('org-mode (org-ctrl-c-ctrl-c)) - (_ (message "%s: %s" "not defined for this major-mode" - major-mode)) ))) + (pcase major-mode + ('org-mode (org-ctrl-c-ctrl-c)) + ('python-mode + (pcase (car event) + ('double-down-mouse-1 + (run-python) + (my-python-shell-send-buffer-w-main)) + (_ (my-python-shell-send-buffer-w-main)))) + (_ (message "%s: %s" "not defined for this major-mode" + major-mode)) ) ) (defvar my-tool-bar-button-play "Cc " "Button to run `C-c'.")