Automatically Removed Whitespace

bin/limp-hyperspec.pl

@@ -111,7 +111,7 @@ sub gen_file
 sub browse
 {
     my( $browser_running, $match_type, $orig_symbol, $match_on, $pat, $make_page ) = @_;
-    my( %done, $pid, $url, $word, $fh, $filename, $do_wait, $do_read, 
+    my( %done, $pid, $url, $word, $fh, $filename, $do_wait, $do_read,
 	@keys, $dummy, $started, $num_deleted, $sleep_time );
 
     while (<>)
@@ -267,7 +267,7 @@ sub main
     my( $type, $make_page, $symbol, $first, $browser_running );
 
     # global
-    $forked_to_background = 
+    $forked_to_background =
 	$external && !$make_page && !$READLINE_ON_BROWSER_START;
 
     $| = 1;
@@ -292,8 +292,8 @@ sub main
 
     @ARGV = glob( "$BASE/Front/X_Perm_*.htm" );
 
-    if    ($type eq "exact")  { &browse( $browser_running, $type, $orig_symbol, $symbol, "#$symbol\"", $make_page ); } 
-    elsif ($type eq "prefix") { &browse( $browser_running, $type, $orig_symbol, $symbol, "#$symbol", $make_page ); } 
+    if    ($type eq "exact")  { &browse( $browser_running, $type, $orig_symbol, $symbol, "#$symbol\"", $make_page ); }
+    elsif ($type eq "prefix") { &browse( $browser_running, $type, $orig_symbol, $symbol, "#$symbol", $make_page ); }
     elsif ($type eq "suffix") { &browse( $browser_running, $type, $orig_symbol, $symbol, "#[^\"]*" . $symbol . "\"", $make_page ); }
     elsif ($type eq "grep")   { &browse( $browser_running, $type, $orig_symbol, $symbol, "#[^\"]*" . $symbol . "[^\"]*\"", $make_page ); }
     elsif ($type eq "index")

bin/lisp.sh

@@ -18,7 +18,7 @@ VERSION=0.3.5-pre
 
 if [[ "$LIMPRUNTIME" = "" ]]; then
     LIMPDIR=$(cd $(dirname $0) ; pwd)
-else 
+else
     LIMPDIR=${LIMPRUNTIME:-/usr}
 fi
 
@@ -85,29 +85,29 @@ LIMP_SCREENRC="" # created at runtime to boot Lisp
 LIMP_SCREEN_STY_FILE="" # temp file used to grab the STY of the last created screen
 
 while [ $# -gt 0 ]; do
-    case $1 in 
+    case $1 in
         -h)         print_version; print_help; exit 0;;
         -v)         print_version; exit 0;;
         -b)         BOOT=1; shift;;
-        -c)         case "$2" in 
+        -c)         case "$2" in
                       "") shift 2;;
                        *) CORE_PATH=$2; shift 2;;
                     esac ;;
         -l)         list_running_lisps
                     exit 0;;
         -s)         case "$2" in
-                        "") echo "-s must be given a file to write the screen ID to"; 
+                        "") echo "-s must be given a file to write the screen ID to";
                             exit 1;;
                         *) LIMP_SCREEN_STY_FILE=$2; shift 2;;
                     esac ;;
         # magic!
         -p)         DO_BOOT=1;
-                    case "$2" in 
-                        "") echo "-p must be given a file containing the STY of the last screen process"; 
+                    case "$2" in
+                        "") echo "-p must be given a file containing the STY of the last screen process";
                             exit 1;;
                         *) LIMP_SCREEN_STY_FILE=$2; shift 2;;
                     esac ;;
-        -P)         case "$2" in 
+        -P)         case "$2" in
                         "") echo "-P must be given a file containing the screenrc"; exit 1;;
                         *) LIMP_SCREENRC=$2; shift 2;;
                     esac ;;
@@ -121,7 +121,7 @@ NAME="$1"
 
 #
 # this is executed from inside the screen
-# 
+#
 if [[ "$DO_BOOT" == "1" ]]; then
 
     id=$(echo $STY | cut -d '.' -f 1)
@@ -156,14 +156,14 @@ if [[ "$DO_BOOT" == "1" ]]; then
     echo -e "Welcome to Limp. May your journey be pleasant.\n"
 	$RLWRAP $SBCL --noinform $core
 
-    # cleanup 
+    # cleanup
     rm -rf "$LIMP_BRIDGE_CHANNEL"
     rm -rf "$LIMP_SCREENRC"
 #
 # first part of the Lisp screen startup
 #
 elif [[ "$BOOT" == "1" ]]; then
-    
+
     if [[ "$NAME" == "" ]]; then
         echo "Sorry, must name your Lisp."
         print_help
@@ -173,7 +173,7 @@ elif [[ "$BOOT" == "1" ]]; then
     # Check if a lisp with this name is already running
     for l in $(list_running_lisps | awk {' print $1 '})
     do
-        if [[ $l = $NAME ]]; then 
+        if [[ $l = $NAME ]]; then
             echo "A lisp with the name $NAME is running!" >&2
             list_running_lisps >&2
             exit 1
@@ -227,7 +227,7 @@ elif [[ "$BOOT" == "1" ]]; then
 
     echo "screen -t Lisp 0 $LIMPDIR/$progname $core_opt -P $initfile -p $styfile" >> $initfile
 
-    screen -c $initfile -dmS limp_listener-$NAME 
+    screen -c $initfile -dmS limp_listener-$NAME
 
     # wait for the styfile to become available
     timer=0

bin/regenerate-hyperspec-thesaurus.pl

@@ -8,8 +8,8 @@
 sub process_word
 {
     my( $word ) = @_;
-    my( 
-	$n, 
+    my(
+	$n,
 	$len,
 	$substr
     );
@@ -62,7 +62,7 @@ sub main
 	&process_word( $word );
     }
 
-    foreach $word (sort( { length( $a ) <=> length( $b ) 
+    foreach $word (sort( { length( $a ) <=> length( $b )
 			   || $a cmp $b }
 			 @words ))
     {
@@ -72,10 +72,10 @@ sub main
 
     foreach $key (sort keys %matches)
     {
-	$out = join( " ", 
-		     $key, 
-		     sort( { length( $a ) <=> length( $b ) 
-			     || $a cmp $b } 
+	$out = join( " ",
+		     $key,
+		     sort( { length( $a ) <=> length( $b )
+			     || $a cmp $b }
 			   @{ $matches{ $key } } ) );
 	print $out, "\n"
 	    if (length( $out ) <= $MAX_LINE);

docs/index.txt

@@ -208,7 +208,7 @@ You can save your Lisp's state and later restore it. Very handy.
 .. figure:: screenshots/save-lisp-and-die.png
 
    Here, I've booted up a fresh Lisp and evaluated the function definition.
-   Then, ``<Shift-F12>`` asks for the path of a file to save the core in. 
+   Then, ``<Shift-F12>`` asks for the path of a file to save the core in.
    The Lisp core is now frozen in time.
 
 .. figure:: screenshots/custom-core.png
@@ -295,7 +295,7 @@ $external
   Opera's "new-page" argument to openURL gives
   each set of HyperSpec search results a new
   page. Other browsers may have analogous flags, and
-  similar behavior. 
+  similar behavior.
 
   ``limp-hyperspec.pl`` replaces %s in
   @browser_args with the URL to be opened.  See
@@ -333,14 +333,14 @@ Name Expansion
 There's a convention to talk about dashed names by abbreviating them into the first letter of each word, e.g.:
 
 .. figure:: screenshots/name-expansion.png
-   
+
    First, type this in Vim...
 
 .. figure:: screenshots/name-expansion-popup.png
 
    Then, hitting ^N^N (Ctrl-N twice) will expand the ``p-n``
    to ``package-name``.  ^N again will replace ``package-name`` with ``pathname-name``,
-   and ^N yet again will replace that with ``pprint-newline``.  See Vim help for 
+   and ^N yet again will replace that with ``pprint-newline``.  See Vim help for
    ``complete``, ``compl-generic``, and ``i_CTRL-X_CTRL-T``.  Also, see below for notes on
    this facility.
 
@@ -369,7 +369,7 @@ that instead of the default keys used for completion!
 
 Commands
 ~~~~~~~~~
-Limp defines a buffer-level command, ``:Eval``. 
+Limp defines a buffer-level command, ``:Eval``.
 
 ``:Eval <sexp>`` will evaluate an s-exp, e.g.::
 
@@ -439,7 +439,7 @@ Source transformation.
 
 * ``\mt``: *(Mark Top)*: Mark the current form to the top level
 * ``\fc``: *(Format Current)*: Reindent/format current form
-* ``\ft``: *(Format current Top level form)*: Reindent/format current form to the top level 
+* ``\ft``: *(Format current Top level form)*: Reindent/format current form to the top level
 * ``\sw``: *(S-exp Wrap)*: Wrap the current form inside another list
 * ``\sp``: *(S-exp Peel)*: Peel off a list around the current s-exp
 * ``\sc`` :*(S-exp Comment top)*: Comment top form
@@ -585,7 +585,7 @@ Version 0.2
 
 Version 0.1
 ~~~~~~~~~~~
-* 2008-04-21 by Mikael Jansson <mail@mikael.jansson.be> 
+* 2008-04-21 by Mikael Jansson <mail@mikael.jansson.be>
 
   Internal release
 

package.sh

@@ -17,7 +17,7 @@ cp -r bin vim $INSTALL
 cp -r install.sh $PACKAGE
 
 echo "Removing Subversion files."
-find $PACKAGE -name .svn -type d -exec rm -rf "{}" 2> /dev/null \; 
+find $PACKAGE -name .svn -type d -exec rm -rf "{}" 2> /dev/null \;
 
 echo "Packing..."
 tar czf ${PACKAGE}.tar.gz $PACKAGE

sandbox/clientserver/client.vim

@@ -5,15 +5,15 @@
 " :Tool "hello, world"
 " :messages
 
-"Get to know each other 
-call remote_expr("SERVER","1","serverid") 
+"Get to know each other
+call remote_expr("SERVER","1","serverid")
 
-augroup server 
-  au! 
-  "Do something with the reply 
-  au RemoteReply * echom remote_read(g:serverid) 
-augroup END 
+augroup server
+  au!
+  "Do something with the reply
+  au RemoteReply * echom remote_read(g:serverid)
+augroup END
 
-"Send messages via SERVER 
+"Send messages via SERVER
 com! -nargs=* Server :call server2client(g:serverid,<q-args>)
 

sandbox/clientserver/server.vim

@@ -5,16 +5,16 @@
 " :let data = ReceiveDataBlocking()
 " :echo data
 
-"Get to know each other 
-call remote_expr("CLIENT","1","clientid") 
+"Get to know each other
+call remote_expr("CLIENT","1","clientid")
 
-func! ReceiveDataBlocking() 
-  "called from your tool, blocks till msg is available 
-  return remote_read(g:clientid) 
-endfun 
+func! ReceiveDataBlocking()
+  "called from your tool, blocks till msg is available
+  return remote_read(g:clientid)
+endfun
 
-func! Reply(msg) 
-  "called by the tool to reply 
-  call server2client(g:clientid,a:msg) 
+func! Reply(msg)
+  "called by the tool to reply
+  call server2client(g:clientid,a:msg)
 endfun
 

sandbox/lisphelptags/helptags-recognizing-lisp-names.diff

@@ -24,7 +24,7 @@ Index: src/ex_cmds.c
 @@ -6398,6 +6408,10 @@
  			++ga.ga_len;
  			sprintf((char *)s, "%s\t%s", p1, fname);
- 
+
 +                        /* take care of the Lisp case */
 +                        if (*(p2+1) == '*')
 +                            p2++;

sandbox/vimff-20071129/vimrc

@@ -1,5 +1,5 @@
 set ai
-set lisp 
+set lisp
 set expandtab
 syntax on
 
@@ -17,7 +17,7 @@ function Startlisp()
 :shell
 endfunction
 
-function Perly() 
+function Perly()
 perl << HEREDOC
 use strict;
 use IO::Socket;
@@ -121,7 +121,7 @@ close $sock;
 HEREDOC
 endfunction
 
-function LispGotoFunction() 
+function LispGotoFunction()
 perl << HEREDOC
 use strict;
 use IO::Socket;
@@ -151,7 +151,7 @@ if($#tmp == 0){
 HEREDOC
 endfunction
 
-function Lisphelpexpr() 
+function Lisphelpexpr()
 perl << HEREDOC
 use strict;
 use IO::Socket;
@@ -176,7 +176,7 @@ VIM::DoCommand(":tabnew /tmp/vimff-help.txt");
 HEREDOC
 endfunction
 
-function Lispcomplete() 
+function Lispcomplete()
 perl << HEREDOC
 use strict;
 use IO::Socket;

sandbox/vimff-20071129/vimrc-swank.pl

@@ -1,5 +1,5 @@
 set ai
-set lisp 
+set lisp
 set expandtab
 syntax on
 
@@ -26,7 +26,7 @@
 endfunction
 
 
-function Perly() 
+function Perly()
 perl << HEREDOC
 use strict;
 use IO::Socket;
@@ -130,7 +130,7 @@
 HEREDOC
 endfunction
 
-function LispGotoFunction() 
+function LispGotoFunction()
 perl << HEREDOC
 use strict;
 use IO::Socket;
@@ -160,7 +160,7 @@
 HEREDOC
 endfunction
 
-function Lisphelpexpr() 
+function Lisphelpexpr()
 perl << HEREDOC
 use strict;
 use IO::Socket;
@@ -185,7 +185,7 @@
 HEREDOC
 endfunction
 
-function Lispcomplete() 
+function Lispcomplete()
 perl << HEREDOC
 use strict;
 use IO::Socket;

vim/autoclose.vim

@@ -1,4 +1,4 @@
-" 
+"
 " limp/vim/autoclose.vim
 "
 " URL: