Mercurial > octave-nkf

annotate examples/info-emacs-info @ 5083:8386cf9811ee ss-2-1-63

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-11-17 15:49:26 by jwe]
author jwe
date Wed, 17 Nov 2004 15:51:27 +0000
parents 2aa0453bfea3
children 2a16423e4aa0
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
2aa0453bfea3 [project @ 1996-07-11 19:40:38 by jwe]
jwe
parents:
diff changeset
3 # Written by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at> on 1996/07/01
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