@@ -123,50 +123,6 @@ region, a buffer, or a file."
123123 :group 'gnuplot-hooks
124124 :type 'hook )
125125
126- (defcustom gnuplot-info-hook nil
127- " Hook run before setting up the info-look interface.
128- This hook is necessary to handle inconsistencies in versions of and
129- sources of the gnuplot info file. If Gnuplot-mode can find the info
130- file generated from the 3.6beta patchlevel 347 (or later) release of
131- Gnuplot, then this hook probably is not necessary. Some versions of
132- the info file may have a General Index session, which can be used by
133- info-look. In that case the following (or something similar with the
134- value of `info-lookup-symbol-alist' altered appropriately) should be
135- placed in the .emacs file.
136-
137- Emacs version 20.2 ships with a different version of info-look that
138- does 20.3. If you use any version of Emacs 19, you must use the
139- version from 20.2. Any version of XEmacs 20 or 21 should use the
140- version from 20.3 but can use either. XEmacs 19 should use the
141- version 20.2.
142-
143- For the newer version of info-look, do this:
144-
145- (add-hook \' gnuplot-info-hook
146- \' (lambda ()
147- (let ((elem (assoc \' gnuplot-mode info-lookup-alist)))
148- (delete elem info-lookup-alist)
149- (info-lookup-maybe-add-help
150- :mode 'gnuplot-mode :topic 'symbol
151- :regexp \" [a-zA-Z][_a-zA-Z0-9]*\"
152- :doc-spec '((\" (gnuplot)General Index\" nil
153- \" [_a-zA-Z0-9]+\" ))))))
154-
155- For the older version of info-look, do this:
156-
157- (add-hook \' gnuplot-info-hook
158- \' (lambda ()
159- (let ((elem (assoc \' gnuplot-mode info-lookup-alist)))
160- (delete elem info-lookup-alist)
161- (setq info-lookup-alist
162- (append info-lookup-alist
163- \' ((gnuplot-mode
164- \" [a-zA-Z][_a-zA-Z0-9]*\" nil
165- ((\" (gnuplot)General Index\" nil
166- \" [_a-zA-Z0-9]+\" )))))))))"
167- :group 'gnuplot-hooks
168- :type 'hook )
169-
170126; ; comint hook suggested by <DB>
171127(defcustom gnuplot-comint-setup-hook nil
172128 " Hook run after setting up the gnuplot buffer in comint mode.
@@ -1860,8 +1816,7 @@ Negatable options are defined in `gnuplot-keywords-negatable-options'."
18601816 " Setup info-look in the gnuplot buffer.
18611817
18621818Also set the variable `gnuplot-keywords' and do something sensible if
1863- info-look was not available.
1864- See the comments in `gnuplot-info-hook' ."
1819+ info-look was not available."
18651820 (interactive )
18661821 (setq gnuplot-keywords-pending nil )
18671822 ; ; TODO Update info layout
@@ -1879,11 +1834,6 @@ See the comments in `gnuplot-info-hook'."
18791834 :regexp " [a-zA-Z][_a-zA-Z0-9]*"
18801835 :doc-spec doc-spec))
18811836
1882- ; ; TODO Clean this up
1883- ; ; this hook is my best way of working with info-look and
1884- ; ; allowing multiple versions of the gnuplot-info file.
1885- ; ; yes, this is a hassle.
1886- (run-hooks 'gnuplot-info-hook )
18871837 (let ((there (bufferp (get-buffer " *info*" ))))
18881838 (info-lookup-setup-mode 'symbol 'gnuplot-mode )
18891839 (or there (and (get-buffer " *info*" ) (kill-buffer " *info*" )))
0 commit comments