mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(rmail-search-backward): Function deleted.

Browse Source 
(rmail-mode-map): Use rmail-search-backwards instead.
This commit is contained in:
Richard M. Stallman 1994-12-18 17:40:25 +00:00
parent d80bd4a029
commit 342aa43969
1 changed files with 1 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/mail/rmail.el
View File

@ -498,7 +498,7 @@ Note: it means the file has no messages in it.\n\^_")))
(cons "Move" (make-sparse-keymap "Move")))
(define-key rmail-mode-map [menu-bar move search-back]
'("Search Back..." . rmail-search-backward))
'("Search Back..." . rmail-search-backwards))
(define-key rmail-mode-map [menu-bar move search]
'("Search..." . rmail-search))
@ -1634,30 +1634,6 @@ or forward if N is negative."
(search-forward "*** EOOH ***" (point-max)) (point))))
(re-search-forward regexp end t)))
(defun rmail-search-backward (regexp &optional n)
"Show message containing next match for REGEXP.
Prefix argument gives repeat count; negative argument means search
backwards (through earlier messages).
Interactively, empty argument means use same regexp used last time."
(interactive
(let* ((reversep (>= (prefix-numeric-value current-prefix-arg) 0))
(prompt
(concat (if reversep "Reverse " "") "Rmail search (regexp): "))
regexp)
(if rmail-search-last-regexp
(setq prompt (concat prompt
"(default "
rmail-search-last-regexp
") ")))
(setq regexp (read-string prompt))
(cond ((not (equal regexp ""))
(setq rmail-search-last-regexp regexp))
((not rmail-search-last-regexp)
(error "No previous Rmail search string")))
(list rmail-search-last-regexp
(prefix-numeric-value current-prefix-arg))))
(rmail-search regexp (- n)))
(defvar rmail-search-last-regexp nil)
(defun rmail-search (regexp &optional n)
"Show message containing next match for REGEXP.