Mercurial > octave-nkf

annotate examples/info-emacs-info @ 5536:f16c05db6250 ss-2-9-4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-11-11 19:53:51 by jwe]
author jwe
date Fri, 11 Nov 2005 19:53:52 +0000
parents 2a16423e4aa0
children 5e881924e645
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2308
2aa0453bfea3 [project @ 1996-07-11 19:40:38 by jwe]
jwe
parents:
diff changeset
1 #!/bin/sh
2aa0453bfea3 [project @ 1996-07-11 19:40:38 by jwe]
jwe
parents:
diff changeset
2 # info-emacs-info
5428
2a16423e4aa0 [project @ 2005-08-23 18:38:27 by jwe]
jwe
parents: 2308
diff changeset
3 # Written by Kurt Hornik <Kurt.Hornik@wu-wien.ac.at> on 1996/07/01
2308
2aa0453bfea3 [project @ 1996-07-11 19:40:38 by jwe]
jwe
parents:
diff changeset
4 # Make Octave's `help -i' use Emacs info.
2aa0453bfea3 [project @ 1996-07-11 19:40:38 by jwe]
jwe
parents:
diff changeset
5 # Requires a running Emacs and gnuserv.
2aa0453bfea3 [project @ 1996-07-11 19:40:38 by jwe]
jwe
parents:
diff changeset
6 cmd="(Info-find-node \"$2\" \"Top\")"
2aa0453bfea3 [project @ 1996-07-11 19:40:38 by jwe]
jwe
parents:
diff changeset
7 if [ $3 = "--directory" ];
2aa0453bfea3 [project @ 1996-07-11 19:40:38 by jwe]
jwe
parents:
diff changeset
8 then
2aa0453bfea3 [project @ 1996-07-11 19:40:38 by jwe]
jwe
parents:
diff changeset
9 cmd="(add-to-list 'Info-directory-list \"$4\") $cmd"
2aa0453bfea3 [project @ 1996-07-11 19:40:38 by jwe]
jwe
parents:
diff changeset
10 shift 2
2aa0453bfea3 [project @ 1996-07-11 19:40:38 by jwe]
jwe
parents:
diff changeset
11 fi
2aa0453bfea3 [project @ 1996-07-11 19:40:38 by jwe]
jwe
parents:
diff changeset
12 cmd="(require 'info) $cmd"
2aa0453bfea3 [project @ 1996-07-11 19:40:38 by jwe]
jwe
parents:
diff changeset
13 [ $4 ] && cmd="$cmd (Info-index \"$4\")"
2aa0453bfea3 [project @ 1996-07-11 19:40:38 by jwe]
jwe
parents:
diff changeset
14 gnudoit -q $cmd