Browse Source

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.
Bastien 5 năm trước cách đây
mục cha
commit
273a7775cd
4 tập tin đã thay đổi với 11 bổ sung10 xóa
  1. 2 1
      lisp/ob-lilypond.el
  2. 2 1
      lisp/org-refile.el
  3. 0 4
      lisp/ox-man.el
  4. 7 4
      mk/eldo.el

+ 2 - 1
lisp/ob-lilypond.el

@@ -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)
   "Utility command to swap current FILE-NAME extension with EXT."
   (concat (file-name-sans-extension
-           file-name) ext))
+           file-name)
+	 ext))
 
 (defun org-babel-lilypond-get-header-args (mode)
   "Default arguments to use when evaluating a lilypond source block.

+ 2 - 1
lisp/org-refile.el

@@ -528,8 +528,9 @@ the *old* location.")
 (defvar org-refile-keep nil
   "Non-nil means `org-refile' will copy instead of refile.")
 
-;;;###autoload
 (define-obsolete-function-alias 'org-copy 'org-refile-copy)
+
+;;;###autoload
 (defun org-refile-copy ()
   "Like `org-refile', but preserve the refiled subtree."
   (interactive)

+ 0 - 4
lisp/ox-man.el

@@ -1143,8 +1143,4 @@ Return PDF file name or an error if it couldn't be produced."
 
 (provide 'ox-man)
 
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
 ;;; ox-man.el ends here

+ 7 - 4
mk/eldo.el

@@ -1,6 +1,6 @@
 ;;; 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>
 ;; Keywords: elisp, documentation, org
@@ -94,7 +94,8 @@
 	 (if version (format "- *Since:* Emacs version %s\n" version) "")
 	 (format (concat "- *In file:* [[" eldo-git-raw-file "][%s]]\n") f f)
 	 (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)))))
     (org-set-property "CUSTOM_ID" (symbol-name h))
     (goto-char (point-max))))
@@ -115,7 +116,8 @@
 	 (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 "- [[" 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))))
       (goto-char (point-max)))))
 
@@ -141,7 +143,8 @@
 	 (if version (format "- *Since:* Emacs version %s\n" version) "")
 	 (format (concat "- *In file:* [[" eldo-git-raw-file "][%s]]\n") f f)
 	 (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)))))
     (org-set-property "CUSTOM_ID" (symbol-name o))
     (goto-char (point-max))))