diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-04 09:48:48 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-04 09:59:28 +0200 |
| commit | 33611906e8e122a51489fbb9716e47062bc34cdb (patch) | |
| tree | 46e9f2b65acb0acbdbd00f3b52ac48f1c70e576d /lisp/play/doctor.el | |
| parent | 7471781dda49b927b4282fae24a4daab962c3266 (diff) | |
| download | emacs-33611906e8e122a51489fbb9716e47062bc34cdb.tar.gz emacs-33611906e8e122a51489fbb9716e47062bc34cdb.tar.bz2 emacs-33611906e8e122a51489fbb9716e47062bc34cdb.zip | |
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.
Diffstat (limited to 'lisp/play/doctor.el')
| -rw-r--r-- | lisp/play/doctor.el | 9 |
1 files 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 |