aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/progmodes')
-rw-r--r--lisp/progmodes/octave.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el
index f45490ef6c3..6fd59ed3f93 100644
--- a/lisp/progmodes/octave.el
+++ b/lisp/progmodes/octave.el
@@ -768,7 +768,7 @@ Key bindings:
768 (setq-local comint-prompt-read-only inferior-octave-prompt-read-only) 768 (setq-local comint-prompt-read-only inferior-octave-prompt-read-only)
769 (add-hook 'comint-input-filter-functions 769 (add-hook 'comint-input-filter-functions
770 'inferior-octave-directory-tracker nil t) 770 'inferior-octave-directory-tracker nil t)
771 ;; http://thread.gmane.org/gmane.comp.gnu.octave.general/48572 771 ;; http://thread.gmane.org/gmane.comp.gnu.octave.general/48572 [dead link]
772 (add-hook 'window-configuration-change-hook 772 (add-hook 'window-configuration-change-hook
773 'inferior-octave-track-window-width-change nil t) 773 'inferior-octave-track-window-width-change nil t)
774 (setq-local compilation-error-regexp-alist inferior-octave-error-regexp-alist) 774 (setq-local compilation-error-regexp-alist inferior-octave-error-regexp-alist)
@@ -1007,7 +1007,7 @@ directory and makes this the current buffer's default directory."
1007(defvar inferior-octave-last-column-width nil) 1007(defvar inferior-octave-last-column-width nil)
1008 1008
1009(defun inferior-octave-track-window-width-change () 1009(defun inferior-octave-track-window-width-change ()
1010 ;; http://thread.gmane.org/gmane.comp.gnu.octave.general/48572 1010 ;; http://thread.gmane.org/gmane.comp.gnu.octave.general/48572 [dead link]
1011 (let ((width (max inferior-octave-minimal-columns (window-width)))) 1011 (let ((width (max inferior-octave-minimal-columns (window-width))))
1012 (unless (eq inferior-octave-last-column-width width) 1012 (unless (eq inferior-octave-last-column-width width)
1013 (setq-local inferior-octave-last-column-width width) 1013 (setq-local inferior-octave-last-column-width width)