[patch] somewhat related patch against emacs-cvs

emacs-cvs-ispell-prefix.patch (text/plain), 2.14 KB, created by Elias Pipping on 2009-01-04 01:50:38 UTC

--- lisp/textmodes/ispell.el
+++ lisp/textmodes/ispell.el
@@ -333,15 +333,15 @@
   :group 'ispell)
 
 (defcustom ispell-alternate-dictionary
-  (cond ((file-exists-p "/usr/dict/web2") "/usr/dict/web2")
-	((file-exists-p "/usr/share/dict/web2") "/usr/share/dict/web2")
-	((file-exists-p "/usr/dict/words") "/usr/dict/words")
-	((file-exists-p "/usr/lib/dict/words") "/usr/lib/dict/words")
-	((file-exists-p "/usr/share/dict/words") "/usr/share/dict/words")
-	((file-exists-p "/usr/share/lib/dict/words")
-	 "/usr/share/lib/dict/words")
-	((file-exists-p "/sys/dict") "/sys/dict")
-	(t "/usr/dict/words"))
+  (cond ((file-exists-p "@GENTOO_PORTAGE_EPREFIX@/usr/dict/web2") "@GENTOO_PORTAGE_EPREFIX@/usr/dict/web2")
+	((file-exists-p "@GENTOO_PORTAGE_EPREFIX@/usr/share/dict/web2") "@GENTOO_PORTAGE_EPREFIX@/usr/share/dict/web2")
+	((file-exists-p "@GENTOO_PORTAGE_EPREFIX@/usr/dict/words") "@GENTOO_PORTAGE_EPREFIX@/usr/dict/words")
+	((file-exists-p "@GENTOO_PORTAGE_EPREFIX@/usr/lib/dict/words") "@GENTOO_PORTAGE_EPREFIX@/usr/lib/dict/words")
+	((file-exists-p "@GENTOO_PORTAGE_EPREFIX@/usr/share/dict/words") "@GENTOO_PORTAGE_EPREFIX@/usr/share/dict/words")
+	((file-exists-p "@GENTOO_PORTAGE_EPREFIX@/usr/share/lib/dict/words")
+	 "@GENTOO_PORTAGE_EPREFIX@/usr/share/lib/dict/words")
+	((file-exists-p "@GENTOO_PORTAGE_EPREFIX@/sys/dict") "@GENTOO_PORTAGE_EPREFIX@/sys/dict")
+	(t "@GENTOO_PORTAGE_EPREFIX@/usr/dict/words"))
   "*Alternate dictionary for spelling help."
   :type '(choice file (const :tag "None" nil))
   :group 'ispell)
@@ -388,9 +388,9 @@
   :group 'ispell)
 
 (defcustom ispell-look-command
-  (cond ((file-exists-p "/bin/look") "/bin/look")
-	((file-exists-p "/usr/local/bin/look") "/usr/local/bin/look")
-	((file-exists-p "/usr/bin/look") "/usr/bin/look")
+  (cond ((file-exists-p "@GENTOO_PORTAGE_EPREFIX@/bin/look") "@GENTOO_PORTAGE_EPREFIX@/bin/look")
+	((file-exists-p "@GENTOO_PORTAGE_EPREFIX@/usr/local/bin/look") "@GENTOO_PORTAGE_EPREFIX@/usr/local/bin/look")
+	((file-exists-p "@GENTOO_PORTAGE_EPREFIX@/usr/bin/look") "@GENTOO_PORTAGE_EPREFIX@/usr/bin/look")
 	(t "look"))
   "Name of the look command for search processes.
 This must be an absolute file name."