# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 978444922 0
# Node ID 29a7d4d1846b64301f184bdb89989d63565d56ce
# Parent  05c36b1fa61815cfee05fbf6592ba7ae310136f0
(comint-input-history-ignore): New variable.
(comint-read-input-ring): Ignore entries matching
comint-input-history-ignore.

diff -r 05c36b1fa618 -r 29a7d4d1846b lisp/comint.el
--- a/lisp/comint.el	Tue Jan 02 14:12:28 2001 +0000
+++ b/lisp/comint.el	Tue Jan 02 14:15:22 2001 +0000
@@ -1,6 +1,6 @@
 ;;; comint.el --- general command interpreter in a window stuff
 
-;; Copyright (C) 1988, 90, 92, 93, 94, 95, 96, 97, 98, 99, 2000
+;; Copyright (C) 1988, 90, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001
 ;;	Free Software Foundation, Inc.
 
 ;; Author: Olin Shivers <shivers@cs.cmu.edu> then
@@ -297,6 +297,9 @@
 (defvar comint-input-ring-separator "\n"
   "Separator between commands in the history file.")
 
+(defvar comint-input-history-ignore "^#"
+  "Regexp for history entries that should be ignored when comint initializes.")
+
 (defcustom comint-process-echoes nil
   "*If non-nil, assume that the subprocess echoes any input.
 If so, delete one copy of the input so that only one copy eventually
@@ -832,7 +835,9 @@
 This function is useful for major mode commands and mode hooks.
 
 The commands stored in the history file are separated by the
-`comint-input-ring-separator'.  The most recent command comes last.
+`comint-input-ring-separator', and entries that match
+`comint-input-history-ignore' are ignored.  The most recent command
+comes last.
 
 See also `comint-input-ignoredups' and `comint-write-input-ring'."
   (cond ((or (null comint-input-ring-file-name)
@@ -866,9 +871,10 @@
 		       (setq start (point-min)))
 		     (setq history (buffer-substring start end))
 		     (goto-char start)
-		     (if (or (null comint-input-ignoredups)
-			     (ring-empty-p ring)
-			     (not (string-equal (ring-ref ring 0) history)))
+		     (if (and (not (string-match comint-input-history-ignore history))
+			      (or (null comint-input-ignoredups)
+				  (ring-empty-p ring)
+				  (not (string-equal (ring-ref ring 0) history))))
 			 (progn
 			   (ring-insert-at-beginning ring history)
 			   (setq count (1+ count)))))))