[Maxima-commits] CVS: maxima/interfaces/emacs/emaxima maxima.el,1.40,1.41

[Jay B. <bel...@us...>]

Update of /cvsroot/maxima/maxima/interfaces/emacs/emaxima
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15465

Modified Files:
	maxima.el 
Log Message:
(maxima-get-help):  Use same window to display help.


Index: maxima.el
===================================================================
RCS file: /cvsroot/maxima/maxima/interfaces/emacs/emaxima/maxima.el,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- maxima.el	4 Nov 2004 14:54:33 -0000	1.40
+++ maxima.el	4 Nov 2004 14:58:20 -0000	1.41
@@ -1397,8 +1397,10 @@
       (info "Maxima")
     (info-other-window (concat "(Maxima)" node))))
 
-(defun maxima-get-info-on-subject (subject)
-  (if maxima-running-xemacs
+(defun maxima-get-info-on-subject (subject &optional same-window)
+  (if (or
+       maxima-running-xemacs
+       same-window)
       (progn
         (info "Maxima")
         (Info-menu "Function and Variable Index"))
@@ -1423,7 +1425,7 @@
       (search-forward ":")
       (skip-chars-backward ": ")
       (setq name (buffer-substring-no-properties pt (point))))
-    (maxima-get-info-on-subject name)))
+    (maxima-get-info-on-subject name t)))
 ;    (if (not maxima-running-xemacs)
 ;        (info-other-window (concat "(Maxima)" place))
 ;      (info "Maxima")