41
41
42
42
(defvar interactive-haskell-mode-map
43
43
(let ((map (make-sparse-keymap )))
44
- (define-key map (kbd " C-c C-l" ) 'haskell-process-load-or-reload )
44
+ (define-key map (kbd " C-c C-l" ) 'haskell-process-load-file )
45
+ (define-key map (kbd " C-c C-r" ) 'haskell-process-reload )
45
46
(define-key map (kbd " C-c C-t" ) 'haskell-process-do-type )
46
47
(define-key map (kbd " C-c C-i" ) 'haskell-process-do-info )
47
48
(define-key map (kbd " M-." ) 'haskell-mode-jump-to-def-or-tag )
@@ -394,13 +395,19 @@ If `haskell-process-load-or-reload-prompt' is nil, accept `default'."
394
395
(current-buffer )))
395
396
396
397
;;;### autoload
397
- (defun haskell-process-reload-file ()
398
+ (defun haskell-process-reload ()
398
399
" Re-load the current buffer file."
399
400
(interactive )
400
401
(save-buffer )
401
402
(haskell-interactive-mode-reset-error (haskell-session ))
402
403
(haskell-process-file-loadish " reload" t (current-buffer )))
403
404
405
+ ;;;### autoload
406
+ (defun haskell-process-reload-file () (haskell-process-reload ))
407
+
408
+ (make-obsolete 'haskell-process-reload-file 'haskell-process-reload
409
+ " 2015-11-14" )
410
+
404
411
;;;### autoload
405
412
(defun haskell-process-load-or-reload (&optional toggle )
406
413
" Load or reload. Universal argument toggles which."
@@ -411,7 +418,10 @@ If `haskell-process-load-or-reload-prompt' is nil, accept `default'."
411
418
(if haskell-reload-p
412
419
" Now running :reload."
413
420
" Now running :load <buffer-filename>." )))
414
- (if haskell-reload-p (haskell-process-reload-file ) (haskell-process-load-file ))))
421
+ (if haskell-reload-p (haskell-process-reload ) (haskell-process-load-file ))))
422
+
423
+ (make-obsolete 'haskell-process-load-or-reload 'haskell-process-load-file
424
+ " 2015-11-14" )
415
425
416
426
;;;### autoload
417
427
(defun haskell-process-cabal-build ()
0 commit comments