1.1 --- a/yatexhlp.el	Thu Feb 01 18:55:47 1996 +0000
     1.2 +++ b/yatexhlp.el	Wed Dec 03 10:37:48 1997 +0000
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX helper with LaTeX commands and macros.
     1.5  ;;; yatexhlp.el
     1.6  ;;; (c )1994 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
     1.7 -;;; Last modified Tue Dec 26 00:02:02 1995 on inspire
     1.8 +;;; Last modified Mon Apr  1 03:34:23 1996 on NSR
     1.9  ;;; $Id$
    1.10  
    1.11  (let ((help-file (concat "YATEXHLP."
    1.12 @@ -10,7 +10,7 @@
    1.13  			       (t "eng"))))
    1.14        (help-dir
    1.15         (cond
    1.16 -	(YaTeX-emacs-19 (expand-file-name "../../site-lisp" exec-directory))
    1.17 +	(YaTeX-emacs-19 (expand-file-name "../../site-lisp" doc-directory))
    1.18  	(t exec-directory))))
    1.19    (defvar YaTeX-help-file
    1.20      (expand-file-name help-file help-dir)
    1.21 @@ -134,8 +134,8 @@
    1.22  		  (concat "^" (regexp-quote YaTeX-help-delimiter)) nil 1)
    1.23  		 (- (point) (length YaTeX-help-delimiter))))
    1.24        (YaTeX-showup-buffer
    1.25 -       hbuf (function (lambda (x) (nth 3 (window-edges x)))))
    1.26 -      (pop-to-buffer hbuf)
    1.27 +       hbuf (function (lambda (x) (nth 3 (window-edges x)))) t)
    1.28 +      (set-buffer hbuf)
    1.29        (if append (goto-char (point-max)) (erase-buffer))
    1.30        (insert YaTeX-help-synopsis "\n")
    1.31        (insert-buffer-substring hfbuf sb se)
    1.32 @@ -191,8 +191,7 @@
    1.33    (let ((buf (get-buffer-create "**Description**"))
    1.34  	(conf (current-window-configuration)))
    1.35      (YaTeX-showup-buffer
    1.36 -     buf (function (lambda (x) (nth 3 (window-edges x)))))
    1.37 -    (pop-to-buffer buf)
    1.38 +     buf (function (lambda (x) (nth 3 (window-edges x)))) t)
    1.39      (make-local-variable 'YaTeX-help-file-current)
    1.40      (make-local-variable 'YaTeX-help-command-current)
    1.41      (make-local-variable 'YaTeX-help-saved-config)