[Emacs-diffs] emacs-24 r117399: prolog.el: Fix for missing `switch-to-prolog'

[Glenn Morris]

------------------------------------------------------------
revno: 117399
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Fri 2014-07-25 04:24:00 -0400
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/prolog.el       prolog.el-20091113204419-o5vbwnq5f7feedwu-98

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-22 21:32:04 +0000
+++ b/lisp/ChangeLog    2014-07-25 08:24:00 +0000
@@ -1,3 +1,9 @@
+2014-07-25  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        * calendar/todo-mode.el (todo-set-top-priorities): Fix overwriting

=== modified file 'lisp/progmodes/prolog.el'
--- a/lisp/progmodes/prolog.el  2014-05-01 23:55:25 +0000
+++ b/lisp/progmodes/prolog.el  2014-07-25 08:24:00 +0000
@@ -1079,7 +1079,7 @@
   ;; 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 @@
         ((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*.