diff options
| author | Po Lu <luangruo@yahoo.com> | 2023-08-07 07:56:44 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2023-08-07 07:56:44 +0800 |
| commit | 072a8a434eb0f39f6e4a0c956d3d8cf44b00cff8 (patch) | |
| tree | 986dadd06bf49dff5a1c1375ab601bfd892aa20c /lisp/emacs-lisp/checkdoc.el | |
| parent | 563df3218e91816b2a4cb442220db12ca9598a03 (diff) | |
| parent | 18e7bc87521e3c48b819cfe4a113f532ba905561 (diff) | |
| download | emacs-072a8a434eb0f39f6e4a0c956d3d8cf44b00cff8.tar.gz emacs-072a8a434eb0f39f6e4a0c956d3d8cf44b00cff8.tar.bz2 emacs-072a8a434eb0f39f6e4a0c956d3d8cf44b00cff8.zip | |
Merge remote-tracking branch 'origin/master' into feature/android
Diffstat (limited to 'lisp/emacs-lisp/checkdoc.el')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index c5e69d5ef56..aadd6480086 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -2382,7 +2382,7 @@ Code:, and others referenced in the style guide." err (or ;; * Commentary Section - (if (and (not (lm-commentary-mark)) + (if (and (not (lm-commentary-start)) ;; No need for a commentary section in test files. (not (string-match (rx (or (seq (or "-test.el" "-tests.el") string-end) @@ -2419,10 +2419,10 @@ Code:, and others referenced in the style guide." (if (or (not checkdoc-force-history-flag) (file-exists-p "ChangeLog") (file-exists-p "../ChangeLog") - (lm-history-mark)) + (lm-history-start)) nil (progn - (goto-char (or (lm-commentary-mark) (point-min))) + (goto-char (or (lm-commentary-start) (point-min))) (cond ((re-search-forward "write\\s-+to\\s-+the\\s-+Free Software Foundation, Inc." @@ -2443,7 +2443,7 @@ Code:, and others referenced in the style guide." err (or ;; * Code section - (if (not (lm-code-mark)) + (if (not (lm-code-start)) (let ((cont t) pos) (goto-char (point-min)) @@ -2494,7 +2494,7 @@ Code:, and others referenced in the style guide." ;; Let's spellcheck the commentary section. This is the only ;; section that is easy to pick out, and it is also the most ;; visible section (with the finder). - (let ((cm (lm-commentary-mark))) + (let ((cm (lm-commentary-start))) (when cm (save-excursion (goto-char cm) |