Revert the --with-install-srcdir patch

Also, update description of debuginfo and sources to match
Debian and Red Hat more accurately, and move this sad tale
from INSTALL to etc/PROBLEMS which is a better home for it.
* Makefile.in (emacs_srcdir, install-c-src):
* configure.ac (emacs_srcdir, --with-install-srcdir):
* src/epaths.in (PATH_EMACS_SOURCE):
* src/lread.c (emacs-source-directory):
Remove.  All uses removed.
* lisp/emacs-lisp/find-func.el (find-function-C-source):
Do not worry about compressed C sources.
* src/lread.c: Do not include <dosname.h>.

2 files changed, 4 insertions, 10 deletions

diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index be53324f141..167ead3ce02 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -219,10 +219,8 @@ LIBRARY should be a string (the name of the library)."
             (locate-file basename (list dir) (find-library-suffixes)))))))
 
 (defvar find-function-C-source-directory
-  (let ((dir (expand-file-name "src" emacs-source-directory)))
-    (if (file-accessible-directory-p dir) dir
-      (setq dir (expand-file-name "src" source-directory))
-      (if (file-accessible-directory-p dir) dir)))
+  (let ((dir (expand-file-name "src" source-directory)))
+    (if (file-accessible-directory-p dir) dir))
   "Directory where the C source files of Emacs can be found.
 If nil, do not try to find the source code of functions and variables
 defined in C.")
@@ -247,10 +245,7 @@ TYPE should be nil to find a function, or `defvar' to find a variable."
   (let ((dir (or find-function-C-source-directory
                  (read-directory-name "Emacs C source dir: " nil nil t))))
     (setq file (expand-file-name file dir))
-    (if (or (file-readable-p file)
-            (let ((file-gz (concat file ".gz")))
-              (and (file-readable-p file-gz)
-                   (setq file file-gz))))
+    (if (file-readable-p file)
         (if (null find-function-C-source-directory)
             (setq find-function-C-source-directory dir))
       (error "The C source file %s is not available"
diff --git a/lisp/startup.el b/lisp/startup.el
index 676fb35e000..1f545c66922 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -623,8 +623,7 @@ It is the default value of the variable `top-level'."
                 (set pathsym (mapcar (lambda (dir)
                                        (decode-coding-string dir coding t))
                                      path)))))
-        (dolist (filesym '(data-directory doc-directory emacs-source-directory
-                                          exec-directory
+        (dolist (filesym '(data-directory doc-directory exec-directory
                                           installation-directory
                                           invocation-directory invocation-name
                                           source-directory