From 33611906e8e122a51489fbb9716e47062bc34cdb Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 4 Aug 2022 09:48:48 +0200 Subject: [PATCH] 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 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