diff options
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/octave.el | 4 |
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) |