[96526] trunk/dports/aqua/emacs-app

[hum at macports.org]

Revision: 96526
          https://trac.macports.org/changeset/96526
Author:   hum at macports.org
Date:     2012-08-13 01:53:15 -0700 (Mon, 13 Aug 2012)
Log Message:
-----------
emacs-app: modify site-start.el to append ${prefix}/share/emacs/site-lisp and its subdirectories to load-path and ${prefix}/share/info to Info-directory-list; see #32146, #32148.

Modified Paths:
--------------
    trunk/dports/aqua/emacs-app/Portfile
    trunk/dports/aqua/emacs-app/files/site-start.el

Modified: trunk/dports/aqua/emacs-app/Portfile
===================================================================
--- trunk/dports/aqua/emacs-app/Portfile	2012-08-13 06:35:48 UTC (rev 96525)
+++ trunk/dports/aqua/emacs-app/Portfile	2012-08-13 08:53:15 UTC (rev 96526)
@@ -5,6 +5,7 @@
 
 name                emacs-app
 version             24.1
+revision            1
 categories          aqua editors
 maintainers         css hum openmaintainer
 

Modified: trunk/dports/aqua/emacs-app/files/site-start.el
===================================================================
--- trunk/dports/aqua/emacs-app/files/site-start.el	2012-08-13 06:35:48 UTC (rev 96525)
+++ trunk/dports/aqua/emacs-app/files/site-start.el	2012-08-13 08:53:15 UTC (rev 96526)
@@ -1,4 +1,12 @@
+;; load-path contains ${prefix}/share/emacs/site-lisp and its subdirecotries.
+;; See #12115, #29232, #32146.
 (setq load-path (cons "__PREFIX__/share/emacs/site-lisp" load-path))
-(if (file-readable-p "__PREFIX__/share/emacs/site-lisp/subdirs.el")
+(if (file-readable-p "__PREFIX__/share/emacs/site-lisp")
     (let ((default-directory "__PREFIX__/share/emacs/site-lisp"))
-      (load "__PREFIX__/share/emacs/site-lisp/subdirs.el")))
+      (if (file-readable-p "__PREFIX__/share/emacs/site-lisp/subdirs.el")
+          (load "__PREFIX__/share/emacs/site-lisp/subdirs.el")
+        (if (fboundp 'normal-top-level-add-subdirs-to-load-path)
+            (normal-top-level-add-subdirs-to-load-path)))))
+
+;; Info-directory-list contains ${prefix}/share/info. See #32148.
+(setq Info-default-directory-list (cons "__PREFIX__/share/info" Info-default-directory-list))
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20120813/97da7d5e/attachment.html>