From d9a71a8ffce1052e7de9f5e7251255cf71b2d017 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 12 Feb 1994 20:14:29 +0000 Subject: [PATCH] (command-line-1): Improve previous change. --- lisp/startup.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index ae34c9db10e..5d1d7574a28 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -344,12 +344,14 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.") (insert-file-contents user-init-file) (re-search-forward (concat - "(setq inhibit-startup-echo-area-message[ \t]+" - (prin1-to-string - (if (string= init-file-user "") - (user-login-name) - init-file-user)) - "[ \t]*)") + "([ \t\n]*setq[ \t\n]+" + "inhibit-startup-echo-area-message[ \t\n]+" + (regexp-quote + (prin1-to-string + (if (string= init-file-user "") + (user-login-name) + init-file-user))) + "[ \t\n]*)") nil t)) (error nil)) (kill-buffer buffer)))) -- 2.39.5