master 33611906e8 3/3: Rename make-doctor-variables to doctor-make-variables

[Stefan Kangas]

branch: master
commit 33611906e8e122a51489fbb9716e47062bc34cdb
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Rename make-doctor-variables to doctor-make-variables
    
    * lisp/play/doctor.el (doctor-make-variables): Rename from
    'make-doctor-variables'.  Retain old name as an obsolete function
    alias.
---
 lisp/play/doctor.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index fbff0b1bbb..f87068e113 100644
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -1,7 +1,6 @@
 ;;; doctor.el --- psychological help for frustrated users  -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 1985, 1987, 1994, 1996, 2000-2022 Free Software
-;; Foundation, Inc.
+;; Copyright (C) 1985-2022 Free Software Foundation, Inc.
 
 ;; Maintainer: emacs-devel@gnu.org
 ;; Keywords: games
@@ -136,14 +135,14 @@ Like Text mode with Auto Fill mode
 except that RET when point is after a newline, or LFD at any time,
 reads the sentence before point, and prints the Doctor's answer."
   :interactive nil
-  (make-doctor-variables)
+  (doctor-make-variables)
   (turn-on-auto-fill)
   (doctor-type '(i am the psychotherapist \.
                 (doc$ doctor--please) (doc$ doctor--describe) your (doc$ 
doctor--problems) \.
                 each time you are finished talking\, type \R\E\T twice \.))
   (insert "\n"))
 
-(defun make-doctor-variables ()
+(defun doctor-make-variables ()
   (setq-local doctor--typos
               (mapcar (lambda (x)
                         (put (car x) 'doctor-correction  (cadr x))
@@ -1620,6 +1619,8 @@ Hack on previous word, setting global variable 
DOCTOR-OWNER to correct result."
 
 (defun doctor-chat () (doctor-type (doc$ doctor--chatlst)))
 
+(define-obsolete-function-alias 'make-doctor-variables #'doctor-make-variables 
"29.1")
+
 (provide 'doctor)
 
 ;;; doctor.el ends here