From 0fddb84c10812e3864f1978fd023362f744e666c Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 2 Jan 2001 14:15:22 +0000 Subject: [PATCH] (comint-input-history-ignore): New variable. (comint-read-input-ring): Ignore entries matching comint-input-history-ignore. --- lisp/comint.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index 4e6d852fe94..dbe75edbf63 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -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 then @@ -297,6 +297,9 @@ the function `comint-truncate-buffer' is on `comint-output-filter-functions'." (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 @@ failure to read the history file. 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 @@ See also `comint-input-ignoredups' and `comint-write-input-ring'." (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))))))) -- 2.39.5