/utilities/emacspeak/lisp/emacspeak-load-path.el

https://github.com/jamesnvc/emacs.d · Lisp · 61 lines · 19 code · 7 blank · 35 comment · 1 complexity · 765d75618d06f7b41715d352622df8b4 MD5 · raw file

  1. ;;; emacspeak-load-path.el -- Setup Emacs load-path for compiling Emacspeak
  2. ;;; $Id: emacspeak-load-path.el 5798 2008-08-22 17:35:01Z tv.raman.tv $
  3. ;;; $Author: tv.raman.tv $
  4. ;;; Description: Sets up load-path for emacspeak compilation and installation
  5. ;;; Keywords: Emacspeak, Speech extension for Emacs
  6. ;;{{{ LCD Archive entry:
  7. ;;; LCD Archive Entry:
  8. ;;; emacspeak| T. V. Raman |raman@cs.cornell.edu
  9. ;;; A speech interface to Emacs |
  10. ;;; $Date: 2007-08-25 18:28:19 -0700 (Sat, 25 Aug 2007) $ |
  11. ;;; $Revision: 4532 $ |
  12. ;;; Location undetermined
  13. ;;;
  14. ;;}}}
  15. ;;{{{ Copyright:
  16. ;;;Copyright (C) 1995 -- 2007, T. V. Raman
  17. ;;; Copyright (c) 1994, 1995 by Digital Equipment Corporation.
  18. ;;; All Rights Reserved.
  19. ;;;
  20. ;;; This file is not part of GNU Emacs, but the same permissions apply.
  21. ;;;
  22. ;;; GNU Emacs is free software; you can redistribute it and/or modify
  23. ;;; it under the terms of the GNU General Public License as published by
  24. ;;; the Free Software Foundation; either version 2, or (at your option)
  25. ;;; any later version.
  26. ;;;
  27. ;;; GNU Emacs is distributed in the hope that it will be useful,
  28. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  29. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  30. ;;; GNU General Public License for more details.
  31. ;;;
  32. ;;; You should have received a copy of the GNU General Public License
  33. ;;; along with GNU Emacs; see the file COPYING. If not, write to
  34. ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  35. ;;}}}
  36. (defvar emacspeak-directory
  37. (expand-file-name "../" (file-name-directory load-file-name))
  38. "Directory where emacspeak is installed. ")
  39. (defvar emacspeak-lisp-directory
  40. (expand-file-name "lisp/" emacspeak-directory)
  41. "Directory containing lisp files for Emacspeak.")
  42. (unless (member emacspeak-lisp-directory load-path )
  43. (setq load-path
  44. (cons emacspeak-lisp-directory load-path ))
  45. (setq load-path
  46. (cons
  47. (expand-file-name "atom-blogger" emacspeak-lisp-directory )
  48. load-path )))
  49. (defvar emacspeak-resource-directory (expand-file-name "~/.emacspeak")
  50. "Directory where Emacspeak resource files such as pronunciation dictionaries are stored. ")
  51. (setq byte-compile-warnings
  52. '(redefine callargs free-vars
  53. unresolved obsolete))
  54. (provide 'emacspeak-load-path)