From 25aa0da588f2afb629e6b42612ccc8925da41a46 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 25 Jul 2014 04:24:00 -0400 Subject: [PATCH] prolog.el: Fix for missing `switch-to-prolog' Ref: http://lists.gnu.org/archive/html/emacs-devel/2014-07/msg00228.html * lisp/progmodes/prolog.el (prolog-mode-keybindings-edit): Replace missing `switch-to-prolog' with `run-prolog'. (switch-to-prolog): Define as (obsolete) alias, as in 23.4. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/prolog.el | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 02189365b4f..ed9801b4101 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2014-07-25 Glenn Morris + + * progmodes/prolog.el (prolog-mode-keybindings-edit): + Replace missing `switch-to-prolog' with `run-prolog'. + (switch-to-prolog): Define as (obsolete) alias, as in 23.4. + 2014-07-22 Stephen Berman * calendar/todo-mode.el (todo-set-top-priorities): Fix overwriting diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el index bcac59a3ade..07d88b3f0fb 100644 --- a/lisp/progmodes/prolog.el +++ b/lisp/progmodes/prolog.el @@ -1079,7 +1079,7 @@ VERSION is of the format (Major . Minor)" ;; Inherited from the old prolog.el. (define-key map "\e\C-x" 'prolog-consult-region) (define-key map "\C-c\C-l" 'prolog-consult-file) - (define-key map "\C-c\C-z" 'switch-to-prolog)) + (define-key map "\C-c\C-z" 'run-prolog)) (defun prolog-mode-keybindings-inferior (_map) "Define keybindings for inferior Prolog mode in MAP." @@ -1240,6 +1240,8 @@ To find out what version of Prolog mode you are running, enter ((string-match "\\`[rf] *[0-9]*\\'" str) nil) ;r(edo) or f(ail) (t t))) +;; This statement was missing in Emacs 24.1, 24.2, 24.3. +(define-obsolete-function-alias 'switch-to-prolog 'run-prolog "24.1") ;;;###autoload (defun run-prolog (arg) "Run an inferior Prolog process, input and output via buffer *prolog*. -- 2.39.5