From: Stefan Monnier Date: Sat, 3 Dec 2011 04:12:11 +0000 (-0500) Subject: * lisp/progmodes/prolog.el (prolog-find-value-by-system): Avoid error when X-Git-Tag: emacs-pretest-24.0.93~232^2~27 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c3fe83faf7d7ee5e67a04984cc4cde55138c280;p=emacs.git * lisp/progmodes/prolog.el (prolog-find-value-by-system): Avoid error when there's no inferior buffer. (prolog-consult-compile): Don't use toggle-read-only. Fixes: debbugs:10196 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4ab35890cae..33e20f297a9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2011-12-03 Stefan Monnier + + * progmodes/prolog.el (prolog-find-value-by-system): Avoid error when + there's no inferior buffer (bug#10196). + (prolog-consult-compile): Don't use toggle-read-only. + 2011-12-02 Michael Albinus * net/tramp-sh.el (tramp-maybe-open-connection): Handle user diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el index 24ca78ad4ef..5b229cc0c24 100644 --- a/lisp/progmodes/prolog.el +++ b/lisp/progmodes/prolog.el @@ -868,8 +868,9 @@ VERSION is of the format (Major . Minor)" (defun prolog-find-value-by-system (alist) "Get value from ALIST according to `prolog-system'." (let ((system (or prolog-system - (buffer-local-value 'prolog-system - (prolog-inferior-buffer 'dont-run))))) + (let ((infbuf (prolog-inferior-buffer 'dont-run))) + (when infbuf + (buffer-local-value 'prolog-system infbuf)))))) (if (listp alist) (let (result id) @@ -1522,7 +1523,7 @@ This function must be called from the source code buffer." ;; Emacs-20). (set (make-local-variable 'compilation-parse-errors-function) 'prolog-parse-sicstus-compilation-errors)) - (toggle-read-only 0) + (setq buffer-read-only nil) (insert command-string "\n")) (save-selected-window (pop-to-buffer buffer))