From 2d6e26196ef3a2d49cea410b385a0fcbb20b330d Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 22 May 1993 22:07:57 +0000
Subject: [PATCH] (scan_lisp_file): Recognize defalias like fset.

---
 lib-src/make-docfile.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c
index 62ccfe9460b..04b05f55eb0 100644
--- a/lib-src/make-docfile.c
+++ b/lib-src/make-docfile.c
@@ -403,6 +403,7 @@ scan_c_file (filename)
   (defconst NAME VALUE DOCSTRING)
   (fset (quote NAME) (make-byte-code ... DOCSTRING ...))
   (fset (quote NAME) #[... DOCSTRING ...])
+  (defalias (quote NAME) #[... DOCSTRING ...])
  starting in column zero.
  (quote NAME) may appear as 'NAME as well.
  For defun, defmacro, and autoload, we know how to skip over the arglist.
@@ -563,7 +564,7 @@ scan_lisp_file (filename)
 	    }
 	}
 
-      else if (! strcmp (buffer, "fset"))
+      else if (! strcmp (buffer, "fset") || ! strcmp (buffer, "defalias"))
 	{
 	  char c1 = 0, c2 = 0;
 	  type = 'F';