# HG changeset patch # User Francesco Potort # Date 1190419785 0 # Node ID c104419f915c863887327537373b4fc78ca954d3 # Parent 20c4f1b1d217c418afaca6f5d431a1f19a455e41 (inferior-octave-mode): Use add-hook to add inferior-octave-directory-tracker to the buffer-local value of comint-input-filter-functions. diff -r 20c4f1b1d217 -r c104419f915c lisp/progmodes/octave-inf.el --- a/lisp/progmodes/octave-inf.el Sat Sep 22 00:09:12 2007 +0000 +++ b/lisp/progmodes/octave-inf.el Sat Sep 22 00:09:45 2007 +0000 @@ -153,10 +153,11 @@ (setq comint-input-ring-file-name (or (getenv "OCTAVE_HISTFILE") "~/.octave_hist") - comint-input-ring-size (or (getenv "OCTAVE_HISTSIZE") 1024) - comint-input-filter-functions '(inferior-octave-directory-tracker)) + comint-input-ring-size (or (getenv "OCTAVE_HISTSIZE") 1024)) (set (make-local-variable 'comint-dynamic-complete-functions) inferior-octave-dynamic-complete-functions) + (add-hook 'comint-input-filter-functions + 'inferior-octave-directory-tracker nil t) (comint-read-input-ring t) (run-mode-hooks 'inferior-octave-mode-hook))