dot/emacs: Moderate horizontal scrolling; auto-scroll only one line.

[profile] / bin / mdw-editor

diff --git a/bin/mdw-editor b/bin/mdw-editor
index 96387e8514203cba19830f59d8257d71c063e416..c162da30bf4a037aeeda8355e25050ffdfbc5f80 100755 (executable)
--- a/bin/mdw-editor
+++ b/bin/mdw-editor
@@ -2,11 +2,17 @@
 
 set -e
 editor=${MDW_EDITOR-ed}
 
 set -e
 editor=${MDW_EDITOR-ed}

+case ${TMP+t},${TMPDIR+t} in
+  t,) TMPDIR=$TMP; export TMPDIR ;;
+esac

 emacsclient=$(
   emacsclient --eval '(>= emacs-major-version 23)' 2>/dev/null || :)
 [ -t 0 -a -t 1 ] || TERM=dumb
 case "$EDITOR,$VISUAL,$TERM" in
 emacsclient=$(
   emacsclient --eval '(>= emacs-major-version 23)' 2>/dev/null || :)
 [ -t 0 -a -t 1 ] || TERM=dumb
 case "$EDITOR,$VISUAL,$TERM" in

-  mdw-editor,mdw-editor,dumb) editor=emacsclient emacsclient=nil;;
+  mdw-editor,mdw-editor,dumb | \
+    mdw-editor,mdw-editor,emacs | \
+    mdw-editor,mdw-editor,eterm*)
+    editor=emacsclient emacsclient=nil;;

   mdw-editor,mdw-editor,*);;
   mdw-editor,*,*) editor=$VISUAL;;
   *,*,*) editor=$EDITOR;;
   mdw-editor,mdw-editor,*);;
   mdw-editor,*,*) editor=$VISUAL;;
   *,*,*) editor=$EDITOR;;