Mercurial > emacs
comparison lisp/progmodes/octave-inf.el @ 65431:effbe6e5cd50
(inferior-octave-startup): Resync current dir at the end.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 10 Sep 2005 15:04:37 +0000 |
| parents | 7a3342784b7e |
| children | e0b37eeb2f0b 10fe5fadaf89 |
comparison
equal
deleted
inserted
replaced
| 65430:492c26176ce9 | 65431:effbe6e5cd50 |
|---|---|
| 246 (setq inferior-octave-complete-impossible | 246 (setq inferior-octave-complete-impossible |
| 247 (not (string-match "5$" (car inferior-octave-output-list)))) | 247 (not (string-match "5$" (car inferior-octave-output-list)))) |
| 248 | 248 |
| 249 ;; And finally, everything is back to normal. | 249 ;; And finally, everything is back to normal. |
| 250 (set-process-filter proc 'inferior-octave-output-filter) | 250 (set-process-filter proc 'inferior-octave-output-filter) |
| 251 (run-hooks 'inferior-octave-startup-hook))) | 251 (run-hooks 'inferior-octave-startup-hook) |
| 252 (run-hooks 'inferior-octave-startup-hook) | |
| 253 ;; Just in case, to be sure a cd in the startup file | |
| 254 ;; won't have detrimental effects. | |
| 255 (inferior-octave-resync-dirs))) | |
| 252 | 256 |
| 253 | 257 |
| 254 (defun inferior-octave-complete () | 258 (defun inferior-octave-complete () |
| 255 "Perform completion on the Octave symbol preceding point. | 259 "Perform completion on the Octave symbol preceding point. |
| 256 This is implemented using the Octave command `completion_matches' which | 260 This is implemented using the Octave command `completion_matches' which |