added scel function for shortcut to open source file at development location

git-svn-id: https://supercollider.svn.sourceforge.net/svnroot/supercollider/trunk@9037 a380766d-ff14-0410-b294-a243070f3f08

el/sclang-dev.el

@@ -0,0 +1,24 @@
+(sclang-set-command-handler
+  'openDevSource
+  (lambda (file)
+   )
+  )
+
+(defun sclang-edit-dev-source ()
+  "Edit the help file at the development location."
+;  (sclang-document-name . (prSetTitle (buffer-name)))
+  (interactive)
+  (sclang-perform-command 'openDevSource (buffer-file-name))
+  )
+
+;(defun sclang-open-dev-source (file)
+;  "Open the help file at the development location."
+;  (if (sclang-html-file-p file)
+;      (html-mode)
+;    ;; (find-file file)
+;    )
+;  (if ( sclang-sc-file-p file )
+;      (sclang-mode)
+;    )
+;  )
+

el/sclang-minor-mode.el

@@ -22,6 +22,7 @@ sclang code with the normal command C-c C-c and C-c C-x."
    ("\C-c\C-h" . sclang-find-help)
    ("\C-\M-h"  . sclang-goto-help-browser)
    ("\C-c\C-s" . sclang-main-stop)
+   ("\C-c\C-k" . sclang-edit-dev-source)
 ))
 
 (provide 'sclang-minor-mode)
@@ -46,6 +47,7 @@ sclang code with the normal command C-c C-c and C-c C-x."
    ("\C-c\C-s" . sclang-main-stop)
    ("\C-c\C-v" . sclang-edit-html-help-file)
    ("E" . sclang-edit-help-code)
+   ("\C-c\C-k" . sclang-edit-dev-source)
 ))
 
 (provide 'sclang-help-minor-mode)

el/sclang-mode.el

@@ -132,6 +132,7 @@
   (define-key map "\C-c\C-r"			'sclang-main-run)
   (define-key map "\C-c\C-s"			'sclang-main-stop)
   (define-key map "\C-c\C-p"			'sclang-show-server-panel)
+  (define-key map "\C-c\C-k"                    'sclang-edit-dev-source)
   ;; electric characters
   (define-key map "}"				'sclang-electric-brace)
   (define-key map ")"				'sclang-electric-brace)