]> git.eshelyaron.com Git - emacs.git/commitdiff
Mark Emacs 21 compat aliases `lm-*-mark` obsolete
authorStefan Kangas <stefankangas@gmail.com>
Sun, 6 Aug 2023 18:39:10 +0000 (20:39 +0200)
committerStefan Kangas <stefankangas@gmail.com>
Sun, 6 Aug 2023 18:39:10 +0000 (20:39 +0200)
* lisp/emacs-lisp/lisp-mnt.el (lm-section-mark, lm-code-mark)
(lm-commentary-mark, lm-history-mark): Mark Emacs 21 compatibility
aliases obsolete.  Update all callers to use the new name.

lisp/emacs-lisp/checkdoc.el
lisp/emacs-lisp/lisp-mnt.el

index c5e69d5ef56e1d34c8bd900bc207a4e65ee15ba9..aadd6480086b01c228475077467bb8be1be845cb 100644 (file)
@@ -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)
index 1fa1297e78775619677eb21ea3fa562d53c76d63..67c9db29b7f2b4a44de87382732a9d94e63fc15c 100644 (file)
@@ -1,7 +1,6 @@
 ;;; lisp-mnt.el --- utility functions for Emacs Lisp maintainers  -*- lexical-binding:t -*-
 
-;; Copyright (C) 1992, 1994, 1997, 2000-2023 Free Software Foundation,
-;; Inc.
+;; Copyright (C) 1992-2023 Free Software Foundation, Inc.
 
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: emacs-devel@gnu.org
@@ -52,7 +51,7 @@
 ;;
 ;;    * Copyright line, which looks more or less like this:
 ;;
-;;       ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
+;;       ;; Copyright (C) 1999-2001 Free Software Foundation, Inc.
 ;;
 ;;    * A blank line
 ;;
@@ -187,7 +186,6 @@ If the given section does not exist, return nil."
       (goto-char (point-min))
       (if (re-search-forward (lm-get-header-re header 'section) nil t)
           (line-beginning-position (if after 2))))))
-(defalias 'lm-section-mark 'lm-section-start)
 
 (defun lm-section-end (header)
   "Return the buffer location of the end of a given section.
@@ -230,12 +228,10 @@ a section."
 (defun lm-code-start ()
   "Return the buffer location of the `Code' start marker."
   (lm-section-start "Code"))
-(defalias 'lm-code-mark 'lm-code-start)
 
 (defun lm-commentary-start ()
   "Return the buffer location of the `Commentary' start marker."
   (lm-section-start lm-commentary-header))
-(defalias 'lm-commentary-mark 'lm-commentary-start)
 
 (defun lm-commentary-end ()
   "Return the buffer location of the `Commentary' section end."
@@ -244,7 +240,6 @@ a section."
 (defun lm-history-start ()
   "Return the buffer location of the `History' start marker."
   (lm-section-start lm-history-header))
-(defalias 'lm-history-mark 'lm-history-start)
 
 (defun lm-copyright-mark ()
   "Return the buffer location of the `Copyright' line."
@@ -258,7 +253,7 @@ a section."
   "Return the contents of the header named HEADER."
   (goto-char (point-min))
   (let ((case-fold-search t))
-    (when (and (re-search-forward (lm-get-header-re header) (lm-code-mark) t)
+    (when (and (re-search-forward (lm-get-header-re header) (lm-code-start) t)
               ;;   RCS ident likes format "$identifier: data$"
               (looking-at
                (if (save-excursion
@@ -402,7 +397,7 @@ ISO-DATE non-nil means return the date in ISO 8601 format."
     (when (progn (goto-char (point-min))
                 (re-search-forward
                  "\\$[I]d: [^ ]+ [^ ]+ \\([^/]+\\)/\\([^/]+\\)/\\([^ ]+\\) "
-                 (lm-code-mark) t))
+                  (lm-code-start) t))
       (let ((dd (match-string 3))
            (mm (match-string 2))
            (yyyy (match-string 1)))
@@ -420,7 +415,7 @@ ISO-DATE non-nil means return the date in ISO 8601 format."
 This can be found in an RCS or SCCS header."
   (lm-with-file file
     (or (lm-header "version")
-       (let ((header-max (lm-code-mark)))
+        (let ((header-max (lm-code-start)))
          (goto-char (point-min))
          (cond
           ;; Look for an RCS header
@@ -557,11 +552,11 @@ copyright notice is allowed."
                "`Keywords:' tag missing")
               ((not (lm-keywords-finder-p))
                "`Keywords:' has no valid finder keywords (see `finder-known-keywords')")
-              ((not (lm-commentary-mark))
+               ((not (lm-commentary-start))
                "Can't find a `Commentary' section marker")
-              ((not (lm-history-mark))
+               ((not (lm-history-start))
                "Can't find a `History' section marker")
-              ((not (lm-code-mark))
+               ((not (lm-code-start))
                "Can't find a `Code' section marker")
               ((progn
                  (goto-char (point-max))
@@ -631,6 +626,11 @@ Prompts for bug subject TOPIC.  Leaves you in a mail buffer."
     (message "%s"
      (substitute-command-keys "Type \\[mail-send] to send bug report."))))
 
+(define-obsolete-function-alias 'lm-section-mark #'lm-section-start "30.1")
+(define-obsolete-function-alias 'lm-code-mark #'lm-code-start "30.1")
+(define-obsolete-function-alias 'lm-commentary-mark #'lm-commentary-start "30.1")
+(define-obsolete-function-alias 'lm-history-mark #'lm-history-start "30.1")
+
 (provide 'lisp-mnt)
 
 ;;; lisp-mnt.el ends here