Detect Emacs sources for 'find-function-C-source-directory'.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sat, 28 Feb 2015 22:37:48 +0200
changeset 1238 c9e507cde2b7
parent 1237 a194c21bc9d2
child 1239 851b41ee5f7e
Detect Emacs sources for 'find-function-C-source-directory'.
.emacs-autogen.sh
--- a/.emacs-autogen.sh	Sat Feb 28 22:37:19 2015 +0200
+++ b/.emacs-autogen.sh	Sat Feb 28 22:37:48 2015 +0200
@@ -113,13 +113,28 @@
   fi
 }
 
-# Remove old auto-generated config and fill it by standard header.
-echo ";; -*- mode: emacs-lisp; coding: utf-8; fill-column: 78 -*-
+print_emacs_sources_dir() {
+  print_header
+  if [[ -d ~/devel/emacs/emacs/src ]]; then
+    echo '(setq find-function-C-source-directory "~/devel/emacs/emacs/src")'
+  else
+    ls ~/devel/emacs/src/emacs.c ~/devel/emacs/emacs*/src/emacs.c 2>/dev/null | {
+      read f
+      printf '(setq find-function-C-source-directory "%s")' ${f%emacs.c}
+    }
+  fi
+}
+
+cat >$cfg <<EOF
+;; -*- mode: emacs-lisp; coding: utf-8; fill-column: 78 -*-
 ;;
 ;; For load order see README.
-" >$cfg
+EOF
 
 check_platform
-print_speller >>$cfg
-print_man >>$cfg
+{
+  print_speller
+  print_man
+  print_emacs_sources_dir
+} >>$cfg