diff --git a/el/sclang-language.el b/el/sclang-language.el index 32f8de0..26ff044 100644 --- a/el/sclang-language.el +++ b/el/sclang-language.el @@ -650,7 +650,7 @@ are considered." (lambda (args) (and args (message "%s" args)))) -(defun sclang-dump-interface (class) +(defun sclang-dump-full-interface (class) "Dump interface of CLASS." (interactive (list @@ -662,6 +662,18 @@ are considered." class 'sclang-class-name-p t)))) (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 ;; ===================================================================== diff --git a/el/sclang-mode.el b/el/sclang-mode.el index ec8c23b..a82c271 100644 --- a/el/sclang-mode.el +++ b/el/sclang-mode.el @@ -92,6 +92,7 @@ ["Show Method Arguments" sclang-show-method-args] ["Complete keyword" sclang-complete-symbol] ["Dump Interface" sclang-dump-interface] + ["Dump Full Interface" sclang-dump-full-interface] "-" ["Index Help Topics" sclang-index-help-topics] ["Find Help ..." sclang-find-help] @@ -112,7 +113,7 @@ (define-key map "\C-c\C-w" 'sclang-switch-to-workspace) ;; code evaluation (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-c\C-e" 'sclang-eval-expression) ;; language information @@ -122,7 +123,8 @@ (define-key map "\C-c;" 'sclang-find-references) (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{" 'sclang-dump-interface) + (define-key map "\C-c{" 'sclang-dump-full-interface) + (define-key map "\C-c[" 'sclang-dump-interface) ;; documentation access (define-key map "\C-c\C-h" 'sclang-find-help) (define-key map "\C-\M-h" 'sclang-goto-help-browser)