Mercurial > octave
changeset 2308:2aa0453bfea3
[project @ 1996-07-11 19:40:38 by jwe]
Initial revision
| author | jwe |
|---|---|
| date | Thu, 11 Jul 1996 19:40:38 +0000 |
| parents | 8b0da674a62d |
| children | bc85631e060d |
| files | examples/info-emacs-info examples/info-emacs-octave-help |
| diffstat | 2 files changed, 27 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/examples/info-emacs-info Thu Jul 11 19:40:38 1996 +0000 @@ -0,0 +1,14 @@ +#!/bin/sh +# info-emacs-info +# Written by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at> on 1996/07/01 +# Make Octave's `help -i' use Emacs info. +# Requires a running Emacs and gnuserv. +cmd="(Info-find-node \"$2\" \"Top\")" +if [ $3 = "--directory" ]; +then + cmd="(add-to-list 'Info-directory-list \"$4\") $cmd" + shift 2 +fi +cmd="(require 'info) $cmd" +[ $4 ] && cmd="$cmd (Info-index \"$4\")" +gnudoit -q $cmd
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/examples/info-emacs-octave-help Thu Jul 11 19:40:38 1996 +0000 @@ -0,0 +1,13 @@ +#!/bin/sh +# info-emacs-octave-help +# Written by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at> on 1996/07/01 +# Make Octave's `help -i' use Emacs octave-help. +# Requires a running Emacs and gnuserv, and installed `octave.el'. +cmd="(require 'octave)" +if [ $3 = "--directory" ]; +then + cmd="$cmd (add-to-list 'Info-directory-list \"$4\")" + shift 2 +fi +cmd="$cmd (octave-help \"$4\")" +gnudoit -q $cmd