From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: =?ISO-8859-1?Q?R=FCdiger?= Sonderfeld Newsgroups: gmane.emacs.devel Subject: [PATCH 1/3] octave.el: Add `octave-send-buffer' function. Date: Fri, 27 Sep 2013 15:11:10 +0200 Message-ID: <106178751.m9xYSccAzi@descartes> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1380287497 12370 80.91.229.3 (27 Sep 2013 13:11:37 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 27 Sep 2013 13:11:37 +0000 (UTC) Cc: Leo Liu To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Sep 27 15:11:39 2013 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1VPXpY-0001V8-87 for ged-emacs-devel@m.gmane.org; Fri, 27 Sep 2013 15:11:36 +0200 Original-Received: from localhost ([::1]:36183 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VPXpX-0005Lt-OS for ged-emacs-devel@m.gmane.org; Fri, 27 Sep 2013 09:11:35 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:43687) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VPXpP-0005LW-7X for emacs-devel@gnu.org; Fri, 27 Sep 2013 09:11:33 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VPXpJ-00017k-28 for emacs-devel@gnu.org; Fri, 27 Sep 2013 09:11:27 -0400 Original-Received: from ptmx.org ([178.63.28.110]:56104) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VPXpI-00017A-Sa for emacs-devel@gnu.org; Fri, 27 Sep 2013 09:11:20 -0400 Original-Received: from localhost (localhost [127.0.0.1]) by ptmx.org (Postfix) with ESMTP id ED9FF2AA76; Fri, 27 Sep 2013 15:11:18 +0200 (CEST) X-Virus-Scanned: Debian amavisd-new at ptmx.org Original-Received: from ptmx.org ([127.0.0.1]) by localhost (ptmx.org [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id VVyz9784DGUw; Fri, 27 Sep 2013 15:11:17 +0200 (CEST) Original-Received: from descartes.localnet (chello080108246092.7.14.vie.surfer.at [80.108.246.92]) by ptmx.org (Postfix) with ESMTPSA id 42FB526A34; Fri, 27 Sep 2013 15:11:17 +0200 (CEST) User-Agent: KMail/4.10.5 (Linux/3.8.0-30-generic; KDE/4.10.5; x86_64; ; ) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 178.63.28.110 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:163673 Archived-At: I'm not sure what key binding would be the best for it. I picked "\C-c= \C-ia" because "\C-c\C-ib" is already used for `octave-send-block'. Regards, R=C3=BCdiger -- 8< ------------------------------------------------------------- >8 = -- * lisp/progmodes/octave.el (octave-mode-map): Add key binding for `octave-send-buffer'. (octave-mode-menu): Add menu entry for `octave-send-buffer'. (octave-send-buffer): New function. Signed-off-by: R=C3=BCdiger Sonderfeld --- lisp/progmodes/octave.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el index f20a579..c5710b8 100644 --- a/lisp/progmodes/octave.el +++ b/lisp/progmodes/octave.el @@ -114,6 +114,7 @@ (defvar octave-mode-map (define-key map "\C-c\C-ib" 'octave-send-block) (define-key map "\C-c\C-if" 'octave-send-defun) (define-key map "\C-c\C-ir" 'octave-send-region) + (define-key map "\C-c\C-ia" 'octave-send-buffer) (define-key map "\C-c\C-is" 'octave-show-process-buffer) (define-key map "\C-c\C-iq" 'octave-hide-process-buffer) (define-key map "\C-c\C-ik" 'octave-kill-process) @@ -121,6 +122,7 @@ (defvar octave-mode-map (define-key map "\C-c\C-i\C-b" 'octave-send-block) (define-key map "\C-c\C-i\C-f" 'octave-send-defun) (define-key map "\C-c\C-i\C-r" 'octave-send-region) + (define-key map "\C-c\C-i\C-a" 'octave-send-buffer) (define-key map "\C-c\C-i\C-s" 'octave-show-process-buffer) (define-key map "\C-c\C-i\C-q" 'octave-hide-process-buffer) (define-key map "\C-c\C-i\C-k" 'octave-kill-process) @@ -169,6 +171,7 @@ (easy-menu-define octave-mode-menu octave-mode-map ["Send Current Block" octave-send-block t] ["Send Current Function" octave-send-defun t] ["Send Region" octave-send-region t] + ["Send Buffer" octave-send-buffer t] ["Show Process Buffer" octave-show-process-buffer t] ["Hide Process Buffer" octave-hide-process-buffer t] ["Kill Process" octave-kill-process t]) @@ -1462,6 +1465,11 @@ (defun octave-send-region (beg end) (if octave-send-show-buffer (display-buffer inferior-octave-buffer))) =20 +(defun octave-send-buffer () + "Send the complete buffer to inferior octave." + (interactive) + (octave-send-region (point-min) (point-max))) + (defun octave-send-block () "Send current Octave block to the inferior Octave process." (interactive) --=20 1.8.4