Mercurial > emacs

changeset 29844:093c79809c9e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sh-while-getopts): Fix handling of empty option string.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 21 Jun 2000 19:52:43 +0000
parents cf3ca2944231
children cf1738b0cace
files lisp/progmodes/sh-script.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/sh-script.el	Wed Jun 21 18:03:37 2000 +0000
+++ b/lisp/progmodes/sh-script.el	Wed Jun 21 19:52:43 2000 +0000
@@ -3939,7 +3939,7 @@
 	 (while (search-backward ":" v1 t)
 	   (replace-match " ARG] [+-" t t)))
       (if (eq (preceding-char) ?-) -5)
-      (if (length v1) "] ")
+      (if (and (sequencep v1) (length v1)) "] " "} ")
       "[--] ARGS...\"" \n
       "exit 2"  > \n
         "esac" >