Mercurial > emacs

diff lisp/startup.el @ 107090:ce00524a181d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix 2009-02-20 change to startup.el (Bug#5519). * startup.el (command-line-1): Convert options beginning with a single dash as well (Bug#5519).
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 04 Feb 2010 23:49:36 -0500
parents db05908c4fc1
children f49497a70cf6
line wrap: on
line diff
--- a/lisp/startup.el	Thu Feb 04 23:21:11 2010 -0500
+++ b/lisp/startup.el	Thu Feb 04 23:49:36 2010 -0500
@@ -2103,7 +2103,7 @@
 	      (when (string-match "\\`\\(--[^=]*\\)=" argi)
 		(setq argval (substring argi (match-end 0))
 		      argi (match-string 1 argi)))
-	      (when (string-match "\\`--." orig-argi)
+	      (when (string-match "\\`--?[^-]" orig-argi)
 		(setq completion (try-completion argi longopts))
 		(if (eq completion t)
 		    (setq argi (substring argi 1))