From 686343747f113c0c7a4d501ac81e2a9384406281 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Wed, 21 Oct 2009 22:05:34 +0000 Subject: [PATCH] (checkdoc-file-comments-engine): When inserting ";;; Code" put it before any ";;;###autoload" cookie on the first form. And insert a blank line after ";;; Code" since that's usual style. (My Bug#4612.) --- lisp/emacs-lisp/checkdoc.el | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 226ee17ce51..0d63ed79d0a 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -2307,15 +2307,24 @@ Code:, and others referenced in the style guide." (or ;; * Code section (if (not (lm-code-mark)) - (let ((cont t)) + (let ((cont t) + pos) (goto-char (point-min)) - (while (and cont (re-search-forward "^(" nil t)) - (setq cont (looking-at "require\\s-+"))) + ;; match ";;;###autoload" cookie to keep it with the form + (require 'autoload) + (while (and cont (re-search-forward + (concat "^\\(" + (regexp-quote generate-autoload-cookie) + "\n\\)?" + "(") + nil t)) + (setq pos (match-beginning 0) + cont (looking-at "require\\s-+"))) (if (and (not cont) (checkdoc-y-or-n-p "There is no ;;; Code: marker. Insert one? ")) - (progn (beginning-of-line) - (insert ";;; Code:\n") + (progn (goto-char pos) + (insert ";;; Code:\n\n") nil) (checkdoc-create-error "You should have a section marked \";;; Code:\"" -- 2.39.5