added sclang-dump-full-interface and changed sclang-dump-interface, added shortcut for the latter, change sclang-eval-region shortcut to C-c C-d, which is less likely to accidentally quit emacs

git-svn-id: https://supercollider.svn.sourceforge.net/svnroot/supercollider/trunk@8492 a380766d-ff14-0410-b294-a243070f3f08
This commit is contained in:
Marije Baalman 2009-01-11 17:05:43 +00:00
parent 6e20ea7b5f
commit 34a4a5222b
2 changed files with 17 additions and 3 deletions

View file

@ -650,7 +650,7 @@ are considered."
(lambda (args) (lambda (args)
(and args (message "%s" args)))) (and args (message "%s" args))))
(defun sclang-dump-interface (class) (defun sclang-dump-full-interface (class)
"Dump interface of CLASS." "Dump interface of CLASS."
(interactive (interactive
(list (list
@ -662,6 +662,18 @@ are considered."
class 'sclang-class-name-p t)))) class 'sclang-class-name-p t))))
(sclang-eval-string (format "%s.dumpFullInterface" class))) (sclang-eval-string (format "%s.dumpFullInterface" class)))
(defun sclang-dump-interface (class)
"Dump interface of CLASS."
(interactive
(list
(let* ((symbol (sclang-symbol-at-point))
(class (and (sclang-get-symbol symbol)
(sclang-class-name-p symbol)
symbol)))
(sclang-read-symbol "Dump interface of: "
class 'sclang-class-name-p t))))
(sclang-eval-string (format "%s.dumpInterface" class)))
;; ===================================================================== ;; =====================================================================
;; cscope interface ;; cscope interface
;; ===================================================================== ;; =====================================================================

View file

@ -92,6 +92,7 @@
["Show Method Arguments" sclang-show-method-args] ["Show Method Arguments" sclang-show-method-args]
["Complete keyword" sclang-complete-symbol] ["Complete keyword" sclang-complete-symbol]
["Dump Interface" sclang-dump-interface] ["Dump Interface" sclang-dump-interface]
["Dump Full Interface" sclang-dump-full-interface]
"-" "-"
["Index Help Topics" sclang-index-help-topics] ["Index Help Topics" sclang-index-help-topics]
["Find Help ..." sclang-find-help] ["Find Help ..." sclang-find-help]
@ -112,7 +113,7 @@
(define-key map "\C-c\C-w" 'sclang-switch-to-workspace) (define-key map "\C-c\C-w" 'sclang-switch-to-workspace)
;; code evaluation ;; code evaluation
(define-key map "\C-c\C-c" 'sclang-eval-region-or-line) (define-key map "\C-c\C-c" 'sclang-eval-region-or-line)
(define-key map "\C-c\C-x" 'sclang-eval-region) (define-key map "\C-c\C-d" 'sclang-eval-region)
(define-key map "\C-\M-x" 'sclang-eval-defun) (define-key map "\C-\M-x" 'sclang-eval-defun)
(define-key map "\C-c\C-e" 'sclang-eval-expression) (define-key map "\C-c\C-e" 'sclang-eval-expression)
;; language information ;; language information
@ -122,7 +123,8 @@
(define-key map "\C-c;" 'sclang-find-references) (define-key map "\C-c;" 'sclang-find-references)
(define-key map "\C-c}" 'sclang-pop-definition-mark) (define-key map "\C-c}" 'sclang-pop-definition-mark)
(define-key map "\C-c\C-m" 'sclang-show-method-args) (define-key map "\C-c\C-m" 'sclang-show-method-args)
(define-key map "\C-c{" 'sclang-dump-interface) (define-key map "\C-c{" 'sclang-dump-full-interface)
(define-key map "\C-c[" 'sclang-dump-interface)
;; documentation access ;; documentation access
(define-key map "\C-c\C-h" 'sclang-find-help) (define-key map "\C-c\C-h" 'sclang-find-help)
(define-key map "\C-\M-h" 'sclang-goto-help-browser) (define-key map "\C-\M-h" 'sclang-goto-help-browser)