@@ -2061,7 +2061,7 @@ there."
2061
2061
(gnuplot-context--completions)))
2062
2062
2063
2063
; ; Eldoc help
2064
- (defun gnuplot-eldoc-function ()
2064
+ (defun gnuplot-eldoc-function (&rest _ )
2065
2065
" Return the ElDoc string for the Gnuplot construction at point."
2066
2066
(gnuplot-context--parse-at-point nil )
2067
2067
gnuplot-eldoc)
@@ -2225,31 +2225,20 @@ distribution. See gnuplot-context.el for details."
2225
2225
(setq gnuplot-completion-at-point-function #'gnuplot-context-completion-at-point )
2226
2226
2227
2227
; ; Setup Eldoc
2228
- (setq-local eldoc-documentation-function #'gnuplot-eldoc-function )
2228
+ (add-hook ' eldoc-documentation-functions #'gnuplot-eldoc-function nil 'local )
2229
2229
(eldoc-add-command 'completion-at-point ) ; Check for eldoc after completion
2230
2230
2231
2231
; ; Try to load Eldoc strings
2232
- (when gnuplot-eldoc-mode
2233
- (unless gnuplot-eldoc-hash
2234
- (condition-case nil
2235
- (load-library " gnuplot-eldoc" )
2236
- (error
2237
- (message " gnuplot-eldoc.el not found. Install it from the Gnuplot distribution. " )
2238
- (setq gnuplot-eldoc-hash nil
2239
- gnuplot-eldoc-mode nil ))))
2240
-
2241
- (if gnuplot-eldoc-hash
2242
- (eldoc-mode 1 )
2243
- (eldoc-mode 0 )))
2232
+ (when (and gnuplot-eldoc-mode (not gnuplot-eldoc-hash))
2233
+ (load " gnuplot-eldoc" nil t ))
2244
2234
2245
2235
; ; Set up tab-to-complete
2246
2236
(when gnuplot-tab-completion
2247
2237
(setq-local tab-always-indent 'complete )))
2248
2238
2249
2239
; ; Turn off
2250
2240
(setq gnuplot-completion-at-point-function #'gnuplot-completion-at-point-info-look )
2251
- (setq eldoc-documentation-function nil )
2252
- (eldoc-mode 0 )))
2241
+ (remove-hook 'eldoc-documentation-functions #'gnuplot-eldoc-function 'local )))
2253
2242
2254
2243
(provide 'gnuplot-context )
2255
2244
; ; Local Variables:
0 commit comments