procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* progmodes/octave.el (octave-mode-map, octave-mode-menu): Add

Browse source 
`octave-source-file'.
(octave-source-file): New function.

Fixes: debbugs:15935
This commit is contained in:
Rüdiger Sonderfeld 2013-11-22 01:18:25 +08:00 • committed by Leo Liu
parent 604ede6c07
commit 06e752b48f
2 changed files with 21 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2013-11-21 Rüdiger Sonderfeld <ruediger@c-plusplus.de>
* progmodes/octave.el (octave-mode-map, octave-mode-menu): Add
`octave-source-file'.
(octave-source-file): New function. (Bug#15935)
2013-11-21 Kenjiro Nakayama <nakayamakenjiro@gmail.com> (tiny change)
* net/eww.el (eww-local-regex): New variable.

15
lisp/progmodes/octave.el
View file

@ -110,6 +110,7 @@ parenthetical grouping.")
(define-key map "\C-c;" 'octave-update-function-file-comment)
(define-key map "\C-hd" 'octave-help)
(define-key map "\C-ha" 'octave-lookfor)
(define-key map "\C-c\C-l" 'octave-source-file)
(define-key map "\C-c\C-f" 'octave-insert-defun)
(define-key map "\C-c\C-il" 'octave-send-line)
(define-key map "\C-c\C-ib" 'octave-send-block)
@ -174,6 +175,7 @@ parenthetical grouping.")
["Send Current Function" octave-send-defun t]
["Send Region" octave-send-region t]
["Send Buffer" octave-send-buffer t]
["Source Current File" octave-source-file t]
["Show Process Buffer" octave-show-process-buffer t]
["Hide Process Buffer" octave-hide-process-buffer t]
["Kill Process" octave-kill-process t])
@ -1463,6 +1465,19 @@ entered without parens)."
(delete-windows-on inferior-octave-buffer)
(message "No buffer named %s" inferior-octave-buffer)))
(defun octave-source-file (file)
"Execute FILE in the inferior Octave process.
This is done using Octave's source function. FILE defaults to
current buffer file unless called with a prefix arg \\[universal-argument]."
(interactive (list (or (and (not current-prefix-arg) buffer-file-name)
(read-file-name "File: " nil nil t))))
(or (stringp file)
(signal 'wrong-type-argument (list 'stringp file)))
(inferior-octave t)
(with-current-buffer inferior-octave-buffer
(comint-send-string inferior-octave-process
(format "source '%s'\n" file))))
(defun octave-send-region (beg end)
"Send current region to the inferior Octave process."
(interactive "r")