From: Stefan Kangas <stefan@marxist.se>
Date: Thu, 4 Aug 2022 07:48:48 +0000 (+0200)
Subject: Rename make-doctor-variables to doctor-make-variables
X-Git-Tag: emacs-29.0.90~1447^2~479
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=33611906e8e122a51489fbb9716e47062bc34cdb;p=emacs.git

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.
---

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index fbff0b1bbbb..f87068e113c 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