[Emacs-diffs] Changes to emacs/lisp/progmodes/prolog.el

[Juanma Barranquero]

Index: emacs/lisp/progmodes/prolog.el
diff -c emacs/lisp/progmodes/prolog.el:1.20 emacs/lisp/progmodes/prolog.el:1.21
*** emacs/lisp/progmodes/prolog.el:1.20 Wed Dec  1 19:48:52 2004
--- emacs/lisp/progmodes/prolog.el      Wed May 18 10:19:31 2005
***************
*** 234,241 ****
  if that value is non-nil.  Likewise with the value of `comint-mode-hook'.
  `prolog-mode-hook' is called after `comint-mode-hook'.
  
! You can send text to the inferior Prolog from other buffers
! using the commands `send-region', `send-string' and \\[prolog-consult-region].
  
  Commands:
  Tab indents for Prolog; with argument, shifts rest
--- 234,241 ----
  if that value is non-nil.  Likewise with the value of `comint-mode-hook'.
  `prolog-mode-hook' is called after `comint-mode-hook'.
  
! You can send text to the inferior Prolog from other buffers using the commands
! `process-send-region', `process-send-string' and \\[prolog-consult-region].
  
  Commands:
  Tab indents for Prolog; with argument, shifts rest
***************
*** 265,276 ****
    (interactive "P\nr")
    (save-excursion
      (if compile
!       (send-string "prolog" prolog-compile-string)
!       (send-string "prolog" prolog-consult-string))
!     (send-region "prolog" beg end)
!     (send-string "prolog" "\n")               ;May be unnecessary
      (if prolog-eof-string
!       (send-string "prolog" prolog-eof-string)
        (process-send-eof "prolog")))) ;Send eof to prolog process.
  
  (defun prolog-consult-region-and-go (compile beg end)
--- 265,276 ----
    (interactive "P\nr")
    (save-excursion
      (if compile
!       (process-send-string "prolog" prolog-compile-string)
!       (process-send-string "prolog" prolog-consult-string))
!     (process-send-region "prolog" beg end)
!     (process-send-string "prolog" "\n")               ;May be unnecessary
      (if prolog-eof-string
!       (process-send-string "prolog" prolog-eof-string)
        (process-send-eof "prolog")))) ;Send eof to prolog process.
  
  (defun prolog-consult-region-and-go (compile beg end)