diff lisp/isearch.el @ 2572:8784bb8514b0

Replaced all fsets with defaliases.

--- a/lisp/isearch.el	Fri Apr 23 06:51:44 1993 +0000
+++ b/lisp/isearch.el	Fri Apr 23 07:31:14 1993 +0000
@@ -4,7 +4,7 @@
 
 ;; Author: Daniel LaLiberte <[e-mail]>
 
-;; |$Date: 1993/03/30 19:42:10 $|$Revision: 1.29 $
+;; |$Date: 1993/04/14 19:40:53 $|$Revision: 1.30 $
 
 ;; This file is not yet part of GNU Emacs, but it is based almost
 ;; entirely on isearch.el which is part of GNU Emacs.
@@ -38,7 +38,7 @@
 ;; isearch-forward, etc, will then use isearch-mode instead of
 ;; isearch.
 
-;; (fset 'isearch 'isearch-mode)
+;; (defalias 'isearch 'isearch-mode)
 ;; (autoload 'isearch-mode "isearch-mode")
 
 ;; For programmed use of isearch-mode, e.g. calling (isearch-forward),
@@ -51,7 +51,7 @@
 ;; of isearch-forward, etc. found in this file instead of those in
 ;; loaddefs.el.  The simplest way to ensure this is to just load
 ;; isearch-mode explicitly in your .emacs instead of using the above
-;; fset and autoload.
+;; defalias and autoload.
 
 ;; (load "isearch-mode")
 
@@ -92,8 +92,11 @@
 ;;;====================================================================
 ;;; Change History
 
-;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch.el,v 1.29 1993/03/30 19:42:10 rms Exp rms $
+;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch.el,v 1.30 1993/04/14 19:40:53 rms Exp eric $
 ;;; $Log: isearch.el,v $
+; Revision 1.30  1993/04/14  19:40:53  rms
+; Doc fixes.
+;
 ; Revision 1.29  1993/03/30  19:42:10  rms
 ; (isearch-done): Customize the message about mark.
 ;
@@ -472,7 +475,7 @@
 ;;;===============================================================
 ;;; Entry points to isearch-mode.
 ;;; These four functions should replace those in loaddefs.el
-;;; An alternative is to fset isearch-forward etc to isearch-mode,
+;;; An alternative is to defalias isearch-forward etc to isearch-mode,
 ;;; and look at this-command to set the options accordingly.
 
 (defun isearch-forward (&optional regexp-p no-recursive-edit)
@@ -1071,7 +1074,7 @@
   (isearch-process-search-char (isearch-last-command-char)))
 
 
-(fset 'isearch-other-control-char 'isearch-other-meta-char)
+(defalias 'isearch-other-control-char 'isearch-other-meta-char)
 
 (defun isearch-other-meta-char ()
   "Exit the search normally and reread this key sequence.
@@ -1433,14 +1436,14 @@
 	    (set-extent-face isearch-extent 'default)
 	  (isearch-dehighlight t)))))
 
-(fset 'isearch-highlight (symbol-function 'isearch-lemacs-highlight))
-(fset 'isearch-dehighlight (symbol-function 'isearch-lemacs-dehighlight))
+(defalias 'isearch-highlight (symbol-function 'isearch-lemacs-highlight))
+(defalias 'isearch-dehighlight (symbol-function 'isearch-lemacs-dehighlight))
 )
 
 ;;;===========================================================
 ;;; General utilities
 
-;; (fset 'isearch-member-equal (symbol-function 'member)) ; for emacs 19
+;; (defalias 'isearch-member-equal (symbol-function 'member)) ; for emacs 19
 
 (defun isearch-member-equal (item list)
   "Return non-nil if ITEM is `equal' to some item in LIST.