← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lisp/ess-eldoc.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-eldoc.el
1
1
;;; ess-eldoc.el --- Use eldoc to report R function names.
2
2
 
3
3
;; Copyright (C) 1997--2009 A.J. Rossini, Rich M. Heiberger, Martin
4
 
;;      Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen.
 
4
;;      Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen.
5
5
 
6
 
;; Original Author: Stephen Eglen
 
6
;; Author: Stephen Eglen
7
7
;; Created: 2007-06-30
8
 
;; Maintainers: ESS-core <ESS-core@r-project.org>
 
8
;; Maintainer: ESS-core <ESS-core@r-project.org>
9
9
 
10
10
;; This file is part of ESS
11
11
 
138
138
 
139
139
;;   (if ess-current-process-name
140
140
;;       (progn
141
 
;;      (setq name (ess-guess-fun))             ;guess the word at point.
142
 
;;      (if (equal (length name) 0)
143
 
;;          nil
144
 
;;        ;; else
145
 
;;        (unless (equal name ess-eldoc-last-name)
146
 
;;          ;; name is different to the last name we lookedup, so get
147
 
;;          ;; new args from R and store them.
148
 
;;          (setq ess-eldoc-last-args (ess-r-args-get name)
149
 
;;                ess-eldoc-last-name name))
150
 
;;        ess-eldoc-last-args))
 
141
;;      (setq name (ess-guess-fun))             ;guess the word at point.
 
142
;;      (if (equal (length name) 0)
 
143
;;          nil
 
144
;;        ;; else
 
145
;;        (unless (equal name ess-eldoc-last-name)
 
146
;;          ;; name is different to the last name we lookedup, so get
 
147
;;          ;; new args from R and store them.
 
148
;;          (setq ess-eldoc-last-args (ess-r-args-get name)
 
149
;;                ess-eldoc-last-name name))
 
150
;;        ess-eldoc-last-args))
151
151
;;     ;; no ESS process current.
152
152
;;     nil)
153
153
;; )
160
160
;;     (save-excursion
161
161
;;       (skip-chars-backward "-a-zA-Z0-9._+:")
162
162
;;       (let ((start (point)))
163
 
;;      (skip-chars-forward "-a-zA-Z0-9._+:")
164
 
;;      (setq word (buffer-substring-no-properties start (point)))))
 
163
;;      (skip-chars-forward "-a-zA-Z0-9._+:")
 
164
;;      (setq word (buffer-substring-no-properties start (point)))))
165
165
;;       word))
166
166
 
167
167
(defun ess-use-eldoc ()
173
173
;; (add-hook 'R-mode-hook 'ess-use-eldoc)
174
174
 
175
175
(provide 'ess-eldoc)
 
176
 
 
177
;;; ess-eldoc.el ends here