← Back to branch summary

~ubuntu-branches/ubuntu/raring/ess/raring-proposed

« back to all changes in this revision

Viewing changes to lisp/ess-debug.el

  • Committer: Package Import Robot
  • Author(s): Dirk Eddelbuettel
  • Date: 2012-05-09 08:00:38 UTC
  • mfrom: (1.2.23)
  • Revision ID: package-import@ubuntu.com-20120509080038-7an3nhbtgaj02a17
Tags: 12.04-1-1
New upstream patch version released today

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/ess-debug.el
2
2
 
3
3
;; Copyright (C) 1997--2001 A.J. Rossini
4
4
;; Copyright (C) 2001--2006 A.J. Rossini, Rich M. Heiberger, Martin
5
 
;;      Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen.
 
5
;;      Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen.
6
6
 
7
 
;; Original Author: A.J. Rossini <rossini@biostat.washington.edu>
 
7
;; Author: A.J. Rossini <rossini@biostat.washington.edu>
8
8
;; Created: November 1997
9
 
;; Maintainers: ESS-core <ESS-core@r-project.org>
 
9
;; Maintainer: ESS-core <ESS-core@r-project.org>
10
10
 
11
 
;; Keywords: start up, configuration.
 
11
;; Keywords: languages, tools
12
12
 
13
13
;; This file is part of ESS.
14
14
 
42
42
directories and it does not exist in `load-path'.
43
43
 
44
44
You can use following PATH styles:
45
 
        load-path relative: \"PATH/\"
46
 
                        (it is searched from `default-load-path')
47
 
        home directory relative: \"~/PATH/\" \"~USER/PATH/\"
48
 
        absolute path: \"/HOO/BAR/BAZ/\"
 
45
        load-path relative: \"PATH/\"
 
46
                        (it is searched from `default-load-path')
 
47
        home directory relative: \"~/PATH/\" \"~USER/PATH/\"
 
48
        absolute path: \"/HOO/BAR/BAZ/\"
49
49
 
50
50
You can specify following OPTIONS:
51
 
        'all-paths      search from `load-path'
52
 
                        instead of `default-load-path'
53
 
        'append         add PATH to the last of `load-path'.
 
51
        'all-paths      search from `load-path'
 
52
                        instead of `default-load-path'
 
53
        'append         add PATH to the last of `load-path'.
54
54
 
55
55
For ESS, ONLY use load-path, since Emacs doesn't have
56
56
default-load-path."
57
57
 
58
58
  (let ((rest load-path)
59
 
        p)
 
59
        p)
60
60
    (if (and (catch 'tag
61
 
               (while rest
62
 
                 (setq p (expand-file-name path (car rest)))
63
 
                 (if (file-directory-p p)
64
 
                     (throw 'tag p))
65
 
                 (setq rest (cdr rest))))
66
 
             (not (member p load-path)))
67
 
        (setq load-path
68
 
              (if (memq 'append options)
69
 
                  (append load-path (list p))
70
 
                (cons p load-path))))))
 
61
               (while rest
 
62
                 (setq p (expand-file-name path (car rest)))
 
63
                 (if (file-directory-p p)
 
64
                     (throw 'tag p))
 
65
                 (setq rest (cdr rest))))
 
66
             (not (member p load-path)))
 
67
        (setq load-path
 
68
              (if (memq 'append options)
 
69
                  (append load-path (list p))
 
70
                (cons p load-path))))))
71
71
 
72
72
(setq-default debug-on-error t)
73
73
(ess-add-path "~rossini/Repos/repos-svn/ess/lisp")
90
90
;;; End:
91
91
 
92
92
;;; ess-debug.el ends here
93