Mercurial > emacs
changeset 59379:b9bf38399e43
(isearch-dehighlight): Remove unused arg `totally'.
(isearch-update, isearch-done): Adjust calls accordingly.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 05 Jan 2005 20:49:11 +0000 |
| parents | 634d7564a9e8 |
| children | 7764df4e45e1 |
| files | lisp/ChangeLog lisp/isearch.el |
| diffstat | 2 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Jan 05 19:31:57 2005 +0000 +++ b/lisp/ChangeLog Wed Jan 05 20:49:11 2005 +0000 @@ -1,7 +1,12 @@ +2005-01-05 Stefan Monnier <monnier@iro.umontreal.ca> + + * isearch.el (isearch-dehighlight): Remove unused arg `totally'. + (isearch-update, isearch-done): Adjust calls accordingly. + 2005-01-05 Richard M. Stallman <rms@gnu.org> * emacs-lisp/find-func.el (find-variable) - (find-variable-other-window, find-variable-other-frame): + (find-variable-other-window, find-variable-other-frame): Fix the TYPE args to find-function-read and find-function-do-it. (find-function): Doc fix. (find-function-at-point): Replace function-at-point alias.
--- a/lisp/isearch.el Wed Jan 05 19:31:57 2005 +0000 +++ b/lisp/isearch.el Wed Jan 05 20:49:11 2005 +0000 @@ -1,7 +1,7 @@ ;;; isearch.el --- incremental search minor mode ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1999, -;; 2000, 2001, 2003, 2004 Free Software Foundation, Inc. +;; 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> ;; Maintainer: FSF @@ -705,7 +705,7 @@ (if (< isearch-other-end (point)) ; isearch-forward? (isearch-highlight isearch-other-end (point)) (isearch-highlight (point) isearch-other-end)) - (isearch-dehighlight nil)) + (isearch-dehighlight)) )) (setq ;; quit-flag nil not for isearch-mode isearch-adjusted nil @@ -733,7 +733,7 @@ (setq overriding-terminal-local-map nil) ;; (setq pre-command-hook isearch-old-pre-command-hook) ; for lemacs (setq minibuffer-message-timeout isearch-original-minibuffer-message-timeout) - (isearch-dehighlight t) + (isearch-dehighlight) (isearch-lazy-highlight-cleanup lazy-highlight-cleanup) (let ((found-start (window-start (selected-window))) (found-point (point))) @@ -2220,7 +2220,7 @@ (overlay-put isearch-overlay 'priority 1) ;higher than lazy overlays )))) -(defun isearch-dehighlight (totally) +(defun isearch-dehighlight () (when isearch-overlay (delete-overlay isearch-overlay)))