Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
28922:c0732e5c1f58 28923:dcafe3c9cd6c
3941 " [+-" '(setq v1 (point)) str 3941 " [+-" '(setq v1 (point)) str
3942 '(save-excursion 3942 '(save-excursion
3943 (while (search-backward ":" v1 t) 3943 (while (search-backward ":" v1 t)
3944 (replace-match " ARG] [+-" t t))) 3944 (replace-match " ARG] [+-" t t)))
3945 (if (eq (preceding-char) ?-) -5) 3945 (if (eq (preceding-char) ?-) -5)
3946 "] [--] ARGS...\"" \n 3946 (if (length v1) "] ")
3947 "[--] ARGS...\"" \n
3947 "exit 2" > \n 3948 "exit 2" > \n
3948 "esac" > 3949 "esac" >
3949 \n "done" 3950 \n "done"
3950 > \n 3951 > \n
3951 "shift " (sh-add "OPTIND" -1))) 3952 "shift " (sh-add "OPTIND" -1)))