Mercurial > emacs

diff lisp/progmodes/sh-script.el @ 28923:dcafe3c9cd6c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sh-while-getopts) <sh>: Handle case that user-specified option string is empty.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 15 May 2000 20:14:39 +0000
parents 746b8b172e55
children 0e45e6e90467
line wrap: on
line diff
--- a/lisp/progmodes/sh-script.el	Mon May 15 20:13:54 2000 +0000
+++ b/lisp/progmodes/sh-script.el	Mon May 15 20:14:39 2000 +0000
@@ -3943,7 +3943,8 @@
 	 (while (search-backward ":" v1 t)
 	   (replace-match " ARG] [+-" t t)))
       (if (eq (preceding-char) ?-) -5)
-      "] [--] ARGS...\"" \n
+      (if (length v1) "] ")
+      "[--] ARGS...\"" \n
       "exit 2"  > \n
         "esac" >
 	 \n "done"