Various minor fixes
* mk/eldo.el: Update copyright year and fix formatting. * lisp/ox-man.el: Don't set generated-autoload-file as a buffer local variable. * lisp/org-refile.el: Place ;;;###autoload correctly. * lisp/ob-lilypond.el (org-babel-lilypond-switch-extension): Formatting fix.
This commit is contained in:
parent
6a1f6ee1f8
commit
273a7775cd
|
@ -391,7 +391,8 @@ If TEST is non-nil, the shell command is returned and is not run."
|
||||||
(defun org-babel-lilypond-switch-extension (file-name ext)
|
(defun org-babel-lilypond-switch-extension (file-name ext)
|
||||||
"Utility command to swap current FILE-NAME extension with EXT."
|
"Utility command to swap current FILE-NAME extension with EXT."
|
||||||
(concat (file-name-sans-extension
|
(concat (file-name-sans-extension
|
||||||
file-name) ext))
|
file-name)
|
||||||
|
ext))
|
||||||
|
|
||||||
(defun org-babel-lilypond-get-header-args (mode)
|
(defun org-babel-lilypond-get-header-args (mode)
|
||||||
"Default arguments to use when evaluating a lilypond source block.
|
"Default arguments to use when evaluating a lilypond source block.
|
||||||
|
|
|
@ -528,8 +528,9 @@ the *old* location.")
|
||||||
(defvar org-refile-keep nil
|
(defvar org-refile-keep nil
|
||||||
"Non-nil means `org-refile' will copy instead of refile.")
|
"Non-nil means `org-refile' will copy instead of refile.")
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(define-obsolete-function-alias 'org-copy 'org-refile-copy)
|
(define-obsolete-function-alias 'org-copy 'org-refile-copy)
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
(defun org-refile-copy ()
|
(defun org-refile-copy ()
|
||||||
"Like `org-refile', but preserve the refiled subtree."
|
"Like `org-refile', but preserve the refiled subtree."
|
||||||
(interactive)
|
(interactive)
|
||||||
|
|
|
@ -1143,8 +1143,4 @@ Return PDF file name or an error if it couldn't be produced."
|
||||||
|
|
||||||
(provide 'ox-man)
|
(provide 'ox-man)
|
||||||
|
|
||||||
;; Local variables:
|
|
||||||
;; generated-autoload-file: "org-loaddefs.el"
|
|
||||||
;; End:
|
|
||||||
|
|
||||||
;;; ox-man.el ends here
|
;;; ox-man.el ends here
|
||||||
|
|
11
mk/eldo.el
11
mk/eldo.el
|
@ -1,6 +1,6 @@
|
||||||
;;; eldo.el --- Elisp Doc-to-Org converter
|
;;; eldo.el --- Elisp Doc-to-Org converter
|
||||||
|
|
||||||
;; Copyright (C) 2012--2019 Bastien Guerry
|
;; Copyright (C) 2012--2020 Bastien Guerry
|
||||||
;;
|
;;
|
||||||
;; Author: Bastien Guerry <bzg@gnu.org>
|
;; Author: Bastien Guerry <bzg@gnu.org>
|
||||||
;; Keywords: elisp, documentation, org
|
;; Keywords: elisp, documentation, org
|
||||||
|
@ -94,7 +94,8 @@
|
||||||
(if version (format "- *Since:* Emacs version %s\n" version) "")
|
(if version (format "- *Since:* Emacs version %s\n" version) "")
|
||||||
(format (concat "- *In file:* [[" eldo-git-raw-file "][%s]]\n") f f)
|
(format (concat "- *In file:* [[" eldo-git-raw-file "][%s]]\n") f f)
|
||||||
(format (concat "- [[" eldo-git-search-string
|
(format (concat "- [[" eldo-git-search-string
|
||||||
"][Find modifications in git logs]]\n\n") (symbol-name h)))
|
"][Find modifications in git logs]]\n\n")
|
||||||
|
(symbol-name h)))
|
||||||
(when (stringp d) (insert (eldo-make-verbatim d)))))
|
(when (stringp d) (insert (eldo-make-verbatim d)))))
|
||||||
(org-set-property "CUSTOM_ID" (symbol-name h))
|
(org-set-property "CUSTOM_ID" (symbol-name h))
|
||||||
(goto-char (point-max))))
|
(goto-char (point-max))))
|
||||||
|
@ -115,7 +116,8 @@
|
||||||
(if (and key (not (string= key ""))) (format "\n- *Access:* ~%s~" key) "")
|
(if (and key (not (string= key ""))) (format "\n- *Access:* ~%s~" key) "")
|
||||||
(format (concat "\n- *In file:* [[" eldo-git-raw-file "][%s]]\n") f f)
|
(format (concat "\n- *In file:* [[" eldo-git-raw-file "][%s]]\n") f f)
|
||||||
(format (concat "- [[" eldo-git-search-string
|
(format (concat "- [[" eldo-git-search-string
|
||||||
"][Find modifications in git logs]]\n\n") (symbol-name c)))
|
"][Find modifications in git logs]]\n\n")
|
||||||
|
(symbol-name c)))
|
||||||
(when (stringp d) (insert (eldo-make-verbatim d))))
|
(when (stringp d) (insert (eldo-make-verbatim d))))
|
||||||
(goto-char (point-max)))))
|
(goto-char (point-max)))))
|
||||||
|
|
||||||
|
@ -141,7 +143,8 @@
|
||||||
(if version (format "- *Since:* Emacs version %s\n" version) "")
|
(if version (format "- *Since:* Emacs version %s\n" version) "")
|
||||||
(format (concat "- *In file:* [[" eldo-git-raw-file "][%s]]\n") f f)
|
(format (concat "- *In file:* [[" eldo-git-raw-file "][%s]]\n") f f)
|
||||||
(format (concat "- [[" eldo-git-search-string
|
(format (concat "- [[" eldo-git-search-string
|
||||||
"][Find modifications in git logs]]\n\n") (symbol-name o)))
|
"][Find modifications in git logs]]\n\n")
|
||||||
|
(symbol-name o)))
|
||||||
(when (stringp d) (insert (eldo-make-verbatim d)))))
|
(when (stringp d) (insert (eldo-make-verbatim d)))))
|
||||||
(org-set-property "CUSTOM_ID" (symbol-name o))
|
(org-set-property "CUSTOM_ID" (symbol-name o))
|
||||||
(goto-char (point-max))))
|
(goto-char (point-max))))
|
||||||
|
|
Loading…
Reference in New Issue