changes for MELPA compatibility

2022-07-30 19:15:38 +02:00 · 2022-07-30 19:15:38 +02:00 · 53d3959e1b
commit 53d3959e1b
parent 36eae66a3c
17 changed files with 1471 additions and 1225 deletions
--- a/README.md
+++ b/README.md
@ -7,8 +7,9 @@ SuperCollider/Emacs interface
 There are 3 options for installation:
 1. Using SuperCollider Quarks (recommended)
-2. From debian package `supercollider-emacs`
+2. Using an Emacs package manager
-3. From source
+3. From debian package `supercollider-emacs`
 4. From source
 Option #1 is the best cross-platform option, and is recommended. Whatever option
 you choose, *make sure not to mix installation methods*. In particular, do not
@ -61,9 +62,11 @@ exec-path.
 (setq exec-path (append exec-path '("/Applications/SuperCollider.app/Contents/MacOS/")))
 ```
-#### Installing with an emacs package manager
+### Install Option 2: Emacs package manager
-It's completely possible to install with
+The `sclang` package can be installed from [MELPA](https://melpa.org/#/sclang) and configured with [use-package](https://github.com/jwiegley/use-package).
 It's possible to install with
 [straight.el](https://github.com/raxod502/straight.el),
 [use-package](https://github.com/jwiegley/use-package),
 [doom](https://github.com/hlissner/doom-emacs), etc. Instructions for doing so
@ -71,7 +74,7 @@ are beyond the scope of this README, but note that `autoloads` are implemented
 for entry-point functions so if you like to have a speedy start-up time you can
 use the `:defer t` option.
-### Install Option 2: Debian package
+### Install Option 3: Debian package
 There is a debian package which provides emacs integration called
 `supercollider-emacs`. Option #1 will likely be more recent, but 
@ -81,7 +84,7 @@ if you prefer you can install the package with:
 sudo apt install supercollider-emacs
 ```
-### Install Option 3: Installing from source
+### Install Option 4: Installing from source
 If you are building SuperCollider from source, you can optionally compile and
 install this library along with it. The cmake `-DSC_EL` flag controls whether
--- a/el/Eldev
+++ b/el/Eldev
@ -4,3 +4,4 @@
 ;; We use it for package development and running tests
 (eldev-use-plugin 'autoloads)
 (eldev-use-package-archive 'melpa)
--- a/el/sclang-browser.el
+++ b/el/sclang-browser.el
@ -1,5 +1,9 @@
-;; copyright 2003 stefan kersten <steve@k-hornz.de>
+;;; sclang-browser.el --- SuperCollider documentation browser -*- coding: utf-8; lexical-binding: t -*-
 ;;
 ;; Copyright 2003 stefan kersten <steve@k-hornz.de>
 ;;; License:
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
 ;; published by the Free Software Foundation; either version 2 of the
@ -15,31 +19,40 @@
 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
 ;; USA
-(require 'sclang-util)
+;;; Commentary:
-(require 'view nil t)
+;; Browser for SuperCollider documentation.
 ;; TODO: better factoring
-;; derive from view mode, make mode-map pluggable
+;; - derive from view mode, make mode-map pluggable
-;; define derived mode for completion, definition, help
+;; - define derived mode for completion, definition, help
 ;; - update 'display-buffer-reuse-frames'
 ;; - update ‘view-return-to-alist’
-(defun sclang-browser-fill-keymap (map)
+(require 'sclang-util)
 (require 'view)
 ;;; Code:
 (defun sclang-browser-fill-keymap ()
  "Create keymap and bindings."
  (let ((map (make-sparse-keymap)))
    (set-keymap-parent map view-mode-map)
    (define-key map "\r" 'sclang-browser-follow-link)
    (define-key map [mouse-2] 'sclang-browser-mouse-follow-link)
    (define-key map "\t" 'sclang-browser-next-link)
    (define-key map [backtab] 'sclang-browser-previous-link)
    (define-key map [(shift tab)] 'sclang-browser-previous-link)
    (define-key map [?q] 'sclang-browser-quit)
-  map)
+    map))
-(defvar sclang-browser-mode-map (sclang-browser-fill-keymap (make-sparse-keymap)))
+(defvar sclang-browser-mode-map (sclang-browser-fill-keymap))
 (defvar sclang-browser-mode-hook nil)
 (defvar sclang-browser-show-hook nil)
-(defvar sclang-browser-link-function nil
+(defvar sclang-browser-link-function nil)
-  "buffer local")
+(defvar sclang-browser-return-method nil)
 (defvar sclang-browser-return-method nil
  "buffer local")
 (defun sclang-browser-beginning-of-link ()
  "Beginning of link."
  (interactive)
  (when (get-text-property (point) 'sclang-browser-link)
    (while (and (not (bobp))
@ -49,6 +62,7 @@
    (point)))
 (defun sclang-browser-next-link (&optional n)
  "Next  link (or N further)."
  (interactive)
  (let* ((n (or n 1))
         (prop 'sclang-browser-link)
@ -73,10 +87,12 @@
             (setq pos (point)))))))
 (defun sclang-browser-previous-link ()
  "Previous link."
  (interactive)
  (sclang-browser-next-link -1))
 (defun sclang-browser-follow-link (&optional pos)
  "Follow link (optionally POS)."
  (interactive)
  (let* ((pos (or pos (point)))
         (data (get-text-property pos 'sclang-browser-link)))
@ -89,6 +105,7 @@
            (error (sclang-message "Error in link function") nil)))))))
 (defun sclang-browser-mouse-follow-link (event)
  "Link.  click.  EVENT."
  (interactive "e")
  (let* ((start (event-start event))
         (window (car start))
@ -97,53 +114,54 @@
      (sclang-browser-follow-link pos))))
 (defun sclang-browser-mode ()
-  "Major mode for viewing hypertext and navigating references in it.
+  "Major mode for viewing hypertext and navigating references.
-Entry to this mode runs the normal hook `sclang-browser-mode-hook'.
+Entry to this mode runs the normal hook `sclang-browser-mode-hook'
 Commands:
 \\{sclang-browser-mode-map}"
  (interactive)
  (view-mode)
  (kill-all-local-variables)
  (use-local-map sclang-browser-mode-map)
  (set-keymap-parent sclang-browser-mode-map view-mode-map)
  (setq mode-name "Browser")
  (setq major-mode 'sclang-browser-mode)
  (set (make-local-variable 'sclang-browser-link-function) nil)
  (set (make-local-variable 'sclang-browser-return-method) nil)
  (set (make-local-variable 'font-lock-defaults) nil)
  (view-mode)
  (set (make-local-variable 'minor-mode-overriding-map-alist)
       (list (cons 'view-mode sclang-browser-mode-map)))
  (set (make-local-variable 'view-no-disable-on-exit) t)
  (run-hooks 'sclang-browser-mode-hook))
 (defun sclang-browser-mode-setup ()
  "Setup sclang-browser-mode."
  (sclang-browser-mode)
  (setq buffer-read-only nil))
 (defun sclang-browser-mode-finish ()
-  (toggle-read-only 1)
+  "Finish sclang-browser-mode."
-  (setq view-return-to-alist
+  (read-only-mode)
-	(list (cons (selected-window) sclang-browser-return-method)))
+  ;; ‘view-return-to-alist’ is an obsolete variable (as of 24.1)
  ;;(setq view-return-to-alist
  ;;      (list (cons (selected-window) sclang-browser-return-method)))
  (view-mode -1)
  (run-hooks 'sclang-browser-show-hook))
 (defun sclang-browser-quit ()
  "Quit the sclang help browser."
  (interactive)
  (when (eq major-mode 'sclang-browser-mode)
    (kill-buffer (current-buffer))))
 (defun sclang-browser-make-link (link-text &optional link-data link-function)
-  (let ((map (make-sparse-keymap)))
+  "Make a link using LINK-TEXT (optional LINK-DATA and LINK-FUNCTION)."
  (propertize link-text
              'mouse-face 'highlight
-		;;'help-echo "mouse-2: follow link"
+              'sclang-browser-link (cons link-function link-data)))
 		;;'keymap map
 		'sclang-browser-link (cons link-function link-data)
 		;;'sclang-browser-link-data link-data
 		;;'sclang-browser-link-function link-function)))
 		)))
 (defun sclang-display-browser (buffer-name output-function)
-  "header: what to insert in the buffer
+  "Display browser using BUFFER-NAME and OUTPUT-FUNCTION.
 header: what to insert in the buffer.
 link-list: list of (link-text link-function link-data)
 link-function: function with args (link-text link-data)"
  (let ((temp-buffer-setup-hook '(sclang-browser-mode-setup))
@ -160,18 +178,25 @@ Commands:
                     ;; Secondly, the buffer has not been displayed yet,
                     ;; so we don't know whether its frame will be selected.
                     (cons (selected-window) t))
-		    (display-buffer-reuse-frames
+                    ;; display-buffer-reuse-frames is obsolete since 24.3
-		     (cons (selected-window) 'quit-window))
+                    ;; replace with something like
                    ;;+ (add-to-list 'display-buffer-alist
                    ;;+     '("." nil (reusable-frames . t)))
                    ;;- (display-buffer-reuse-frames
                    ;;-  (cons (selected-window) 'quit-window))
                    ((not (one-window-p t))
                     (cons (selected-window) 'quit-window))
-		    (pop-up-windows
+                    ;; This variable is provided mainly for backward compatibility
-		     (cons (selected-window) t))
+                    ;; and should not be used in new code.
                    ;;  (pop-up-windows
                    ;;   (cons (selected-window) t))
                    (t
                     (list (selected-window) (window-buffer)
                           (window-start) (window-point)))))
        (funcall output-function)))))
 (defmacro with-sclang-browser (buffer-name &rest body)
  "Display browser in BUFFER-NAME and run BODY."
  `(sclang-display-browser ,buffer-name (lambda () ,@body)))
 ;; =====================================================================
@ -180,4 +205,4 @@ Commands:
 (provide 'sclang-browser)
-;; EOF
+;;; sclang-browser.el ends here
--- a/el/sclang-dev.el
+++ b/el/sclang-dev.el
@ -1,3 +1,9 @@
 ;;; sclang-dev.el ---  IDE for working with SuperCollider -*- coding: utf-8;
 ;;
 ;; Copyright 2003 stefan kersten <steve@k-hornz.de>
 ;;; License:
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
 ;; published by the Free Software Foundation; either version 2 of the
@ -13,32 +19,25 @@
 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
 ;; USA
 ;;; Commentary:
 ;; Edit SuperCollider help files.
 (require 'sclang-util)
 (require 'sclang-interp)
 ;;; Code:
 (sclang-set-command-handler
 'openDevSource
-  (lambda (file)
+ (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))
+  ;; (sclang-document-name . (prSetTitle (buffer-name)))
-  )
+  (sclang-perform-command 'openDevSource (buffer-file-name)))
 (provide 'sclang-dev)
-;(defun sclang-open-dev-source (file)
+;;; sclang-dev.el ends here
 ;  "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)
 ;    )
 ;  )
--- a/el/sclang-document.el
+++ b/el/sclang-document.el
@ -1,5 +1,9 @@
-;; copyright 2003 stefan kersten <steve@k-hornz.de>
+;;; sclang-document.el --- IDE for working with SuperCollider -*- coding: utf-8;
 ;;
 ;; Copyright 2003 stefan kersten <steve@k-hornz.de>
 ;;; License:
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
 ;; published by the Free Software Foundation; either version 2 of the
@ -15,6 +19,12 @@
 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
 ;; USA
 ;;; Commentary:
 ;; ???
 ;;; Code:
 (provide 'sclang-document)
-;; EOF
+;;; sclang-document.el ends here
--- a/el/sclang-help.el
+++ b/el/sclang-help.el
@ -1,5 +1,9 @@
-;; copyright 2003 stefan kersten <steve@k-hornz.de>
+;;; sclang-help.el --- IDE for working with SuperCollider -*- coding: utf-8;
 ;;
 ;; Copyright 2003 stefan kersten <steve@k-hornz.de>
 ;;; License:
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
 ;; published by the Free Software Foundation; either version 2 of the
@ -15,11 +19,17 @@
 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
 ;; USA
 ;;; Commentary:
 ;; Access SuperCollider help files.
 ;;; Code:
 (eval-when-compile
  (require 'font-lock))
-;; (require 'w3m) ;; not needed during compilation
+(require 'w3m)
 (require 'cl-lib)
 (require 'sclang-util)
 (require 'sclang-interp)
 (require 'sclang-language)
@ -87,12 +97,15 @@
 (defcustom sclang-help-filters
  '(("p\\.p\\([0-9]+\\)" . "#p\\1")
    ("<p class=\"\\(.*\\)\">\\(.*\\)</p>" . "<div id=\"\\1\">\\2</div>"))
-  "list of pairs of (regexp . filter) defining html-tags to be replaced by the function sclang-help-substitute-for-filters"
+  "Filters to replace html tags.
 List of pairs of (regexp . filter) defining html-tags to be replaced
 using the function `sclang-help-substitute-for-filters'."
  :group 'sclang-interface
  :type '(repeat (cons (string :tag "match") (string :tag "replacement"))))
 (defun sclang-help-substitute-for-filters (&rest args)
-  "substitute various tags in SCs html-docs"
+  "Substitute various tags in SCs html-docs.
 Optional argument ARGS unused?"
  (mapcar #'(lambda (filter)
              (let ((regexp (car filter))
                    (to-string (cdr filter)))
@ -104,12 +117,12 @@
 ;; w3m's content-filtering system
 (setq w3m-use-filter t)
 ;; checks if w3m-filter is loaded.  Is `eval-after-load' necessary here?
 (eval-after-load "w3m-filter"
  '(add-to-list 'w3m-filter-rules
                ;; run on all files read by w3m...
                '(".*" sclang-help-substitute-for-filters)))
 (defvar sclang-help-topic-alist nil
  "Alist mapping help topics to file names.")
@ -136,38 +149,49 @@
 ;; =====================================================================
 (defun sclang-get-help-file (topic)
  "Get the help file for TOPIC."
  (let ((topic (or (cdr (assoc topic sclang-special-help-topics)) topic)))
    (cdr (assoc topic sclang-help-topic-alist))))
 (defun sclang-get-help-topic (file)
  "Get the help topic for FILE."
  (let ((topic (car (rassoc file sclang-help-topic-alist))))
    (or (car (rassoc topic sclang-special-help-topics)) topic)))
 (defun sclang-help-buffer-name (topic)
  "Set the help buffer name to TOPIC."
  (sclang-make-buffer-name (concat "Help:" topic)))
 ;; file predicate functions
 (defun sclang-rtf-file-p (file)
  "Does an rtf FILE exist?"
  (let ((case-fold-search t))
    (string-match ".*\\.rtf$" file)))
 ;; ========= ADDITION for HTML help files
 (defun sclang-html-file-p (file)
  "Does an html FILE exist?"
  (let ((case-fold-search t))
    (string-match ".*\\.html?$" file)))
 (defun sclang-sc-file-p (file)
  "Does an sc FILE exist?"
  (let ((case-fold-search t))
    (string-match ".*\\.sc$" file)))
 (defun sclang-scd-file-p (file)
  "Does an scd FILE exist?"
  (let ((case-fold-search t))
    (string-match ".*\\.scd$" file)))
 (defun sclang-help-file-p (file)
  "Is FILE a help file?"
  (string-match sclang-help-file-regexp file))
 (defun sclang-help-topic-name (file)
-  (if (string-match sclang-help-file-regexp file)
+  "Get the help topic from FILE."
  (when (string-match sclang-help-file-regexp file)
    (cons (file-name-nondirectory (replace-match "" nil nil file 1))
          file)))
@ -178,7 +202,7 @@
 (defconst sclang-rtf-face-change-token "\0")
 (defun sclang-fill-rtf-syntax-table (table)
-  ;; character quote
+  "Fill RTF syntax TABLE."
  (modify-syntax-entry ?\\ "/" table)
  (modify-syntax-entry ?\" "." table)
  (modify-syntax-entry ?\{ "(" table)
@ -204,13 +228,16 @@
  (defun sclang-code-p (pos) (not (rtf-p pos))))
 (defmacro with-sclang-rtf-state-output (state &rest body)
  "Wrap rtf STATE output around BODY."
  `(with-current-buffer (sclang-rtf-state-output ,state)
     ,@body))
 (defmacro sclang-rtf-state-add-font (state font-id font-name)
  "Add font to STATE font table using FONT-ID and FONT-NAME."
  `(push (cons ,font-id (intern ,font-name)) (sclang-rtf-state-font-table ,state)))
 (defmacro sclang-rtf-state-apply (state)
  "Apply STATE to rtf output."
  (let ((pos (cl-gensym))
        (font (cl-gensym))
        (face (cl-gensym)))
@ -230,11 +257,13 @@
           (setf (sclang-rtf-state-pos ,state) (point)))))))
 (defmacro sclang-rtf-state-set-font (state font)
  "Set FONT in STATE."
  `(progn
     (sclang-rtf-state-apply ,state)
     (setf (sclang-rtf-state-font ,state) ,font)))
 (defmacro sclang-rtf-state-push-face (state face)
  "Push FACE to STATE."
  (let ((list (cl-gensym)))
    `(let ((,list (sclang-rtf-state-face state)))
       (sclang-rtf-state-apply ,state)
@ -243,12 +272,14 @@
               (append ,list (list ,face)))))))
 (defmacro sclang-rtf-state-pop-face (state face)
  "Pop FACE from STATE."
  (let ((list (cl-gensym)))
    `(let* ((,list (sclang-rtf-state-face ,state)))
       (sclang-rtf-state-apply ,state)
       (setf (sclang-rtf-state-face ,state) (delq ,face ,list)))))
 (defun sclang-parse-rtf (state)
    "Parse rtf STATE."
    (while (not (eobp))
    (cond ((looking-at "{")
           ;; container
@ -278,6 +309,7 @@
           (forward-char 1)))))
 (defun sclang-parse-rtf-container (state)
  "Parse RTF container.  STATE."
  (cond ((looking-at "\\\\rtf1")                ; document
         (goto-char (match-end 0))
         (sclang-parse-rtf state))
@ -295,10 +327,10 @@
                (insert-image image)
              (sclang-rtf-state-push-face state 'italic)
              (insert file)
-	      (sclang-rtf-state-pop-face state 'italic)))))
+              (sclang-rtf-state-pop-face state 'italic)))))))
 	))
 (defun sclang-parse-rtf-control (state ctrl)
  "Parse RTF control chars.  STATE CTRL."
  (let ((char (aref ctrl 0)))
    (cond ((memq char '(?{ ?} ?\\))
           (with-sclang-rtf-state-output state (insert char)))
@ -318,10 +350,10 @@
          ((string= ctrl "b0")
           (sclang-rtf-state-pop-face state 'bold))
          ((string-match "^f[0-9]+$" ctrl)
-	   (sclang-rtf-state-set-font state ctrl))
+           (sclang-rtf-state-set-font state ctrl)))))
 	  )))
 (defun sclang-convert-rtf-buffer (output)
  "Convert rtf buffer.  OUTPUT."
  (let ((case-fold-search nil)
        (fill-column sclang-help-fill-column))
    (save-excursion
@ -337,14 +369,17 @@
 ;; =====================================================================
 (defun sclang-fill-help-syntax-table (table)
  "Fill help syntax TABLE."
  ;; make ?- be part of symbols for selection and sclang-symbol-at-point
  (modify-syntax-entry ?- "_" table))
 (defun sclang-fill-help-mode-map (map)
  "Fill sclang help mode keymap MAP."
  (define-key map "\C-c}" 'bury-buffer)
  (define-key map "\C-c\C-v" 'sclang-edit-help-file))
 (defmacro sclang-help-mode-limit-point-to-code (&rest body)
  "Limit point to code BODY."
  (let ((min (cl-gensym))
        (max (cl-gensym))
        (res (cl-gensym)))
@ -360,14 +395,17 @@
                   (t ,res)))))))
 (defun sclang-help-mode-beginning-of-defun (&optional arg)
  "Move to beginning of function (or back ARG)."
  (interactive "p")
  (sclang-help-mode-limit-point-to-code (sclang-beginning-of-defun arg)))
 (defun sclang-help-mode-end-of-defun (&optional arg)
  "Move to end of function (or forward ARG)."
  (interactive "p")
  (sclang-help-mode-limit-point-to-code (sclang-end-of-defun arg)))
 (defun sclang-help-mode-fontify-region (start end loudly)
  "Fontify region from START to END and LOUDLY."
  (cl-flet ((fontify-code
              (start end loudly)
              (funcall 'font-lock-default-fontify-region start end loudly))
@ -395,6 +433,7 @@
 (defun sclang-help-mode-indent-line ()
  "Indent sclang code in documentation."
  (if (sclang-code-p (point))
      (sclang-indent-line)
    (insert "\t")))
@ -415,7 +454,7 @@
            (unwind-protect
                (progn
                  (sclang-convert-rtf-buffer tmp-buffer)
-		  (toggle-read-only 0)
+                  (read-only-mode)
                  (erase-buffer)
                  (insert-buffer-substring tmp-buffer))
              (and (buffer-modified-p) (not modified-p) (set-buffer-modified-p nil))
@ -425,8 +464,7 @@
          (append font-lock-defaults
                  '((font-lock-fontify-region-function . sclang-help-mode-fontify-region))))
    (set (make-local-variable 'beginning-of-defun-function) 'sclang-help-mode-beginning-of-defun)
-    (set (make-local-variable 'indent-line-function) 'sclang-help-mode-indent-line)
+    (set (make-local-variable 'indent-line-function) 'sclang-help-mode-indent-line)))
    ))
 ;; =====================================================================
 ;; help file access
@ -436,7 +474,8 @@
  "Answer t if PATH should be skipped during help file indexing."
  (let ((directory (file-name-nondirectory path)))
    (cl-some (lambda (regexp) (string-match regexp directory))
-	     '("^\.$" "^\.\.$" "^CVS$" "^\.svn$" "^_darcs$"))))
+             ;; skip "." ".." "CVS" ".svn" and "_darcs" directories
             '("\\.\\'" "\\.\\.\\'" "^CVS\\'" "^\\.svn$" "^_darcs\\'"))))
 (defun sclang-filter-help-directories (list)
  "Remove paths to be skipped from LIST of directories."
@ -446,7 +485,7 @@
                list))
 (defun sclang-directory-files-save (directory &optional full match nosort)
-  "Return a list of names of files in DIRECTORY, or nil on error."
+  "List files in DIRECTORY (optionally FULL MATCH NOSORT) or nil."
  (condition-case nil
      (directory-files directory full match nosort)
    (error nil)))
@ -505,20 +544,17 @@
  "Edit the help file associated with the current buffer.
 Switches w3m to edit mode (actually HTML mode)."
  (interactive)
-  (w3m-edit-current-url)
+  (w3m-edit-current-url))
  )
 (defun sclang-edit-help-code ()
  "Edit the help file to make code variations.
-Switches to text mode with sclang-minor-mode."
+Switches to text mode with `sclang-minor-mode'."
  (interactive)
  (w3m-copy-buffer)
  ;;  (text-mode)
  (sclang-mode)
-  (toggle-read-only)
+  (read-only-mode)
-  (rename-buffer "*SC_Help:CodeEdit*")
+  (rename-buffer "*SC_Help:CodeEdit*"))
  )
 (defun sclang-edit-help-file ()
  "Edit the help file associated with the current buffer.
@ -552,7 +588,7 @@ Either visit file internally (.sc) or start external editor (.rtf)."
                    sclang-help-topic-alist))))))
 (defun sclang-goto-help-browser ()
-  "Switch to the *w3m* buffer to browse help files"
+  "Switch to the *w3m* buffer to browse help files."
  (interactive)
  (let* ((buffer-name "*w3m*")
         (buffer (get-buffer buffer-name)))
@ -564,24 +600,15 @@ Either visit file internally (.sc) or start external editor (.rtf)."
        (if buffer2
            (switch-to-buffer buffer2)
          ;; else
-	  (sclang-find-help "Help")
+          (sclang-find-help "Help"))))
 	  )
 	)
      )
    (if buffer
        (with-current-buffer buffer
          (rename-buffer "*SC_Help:w3m*")
 	  (sclang-help-minor-mode)
          ;;(setq buffer-read-only false)
-	  )
+          (sclang-help-minor-mode)))))
      )
 ;    (if buffer
 ;
 ;      )
    )
  )
 (defun sclang-find-help (topic)
  "Find help for TOPIC."
  (interactive
   (list
    (let ((topic (or (and mark-active (buffer-substring-no-properties (region-beginning) (region-end)))
@ -609,17 +636,15 @@ Either visit file internally (.sc) or start external editor (.rtf)."
                    (set-buffer-modified-p nil)))
                (switch-to-buffer buffer))
              (if (sclang-html-file-p file)
-                  (sclang-goto-help-browser))
+                  (sclang-goto-help-browser)))
              )
          (sclang-message "Help file not found") nil)
      (sclang-message "No help for \"%s\"" topic) nil)))
 (defun sclang-open-help-gui ()
-  "Open SCDoc Help Browser"
+  "Open SCDoc Help Browser."
  (interactive)
-  (sclang-eval-string (sclang-format "Help.gui"))
+  (sclang-eval-string (sclang-format "Help.gui")))
  )
 (defvar sclang-scdoc-topics (make-hash-table :size 16385)
  "List of all scdoc topics.")
@ -629,24 +654,23 @@ Either visit file internally (.sc) or start external editor (.rtf)."
 (lambda (list-of-symbols)
   (mapcar (lambda (arg)
             (puthash arg nil sclang-scdoc-topics))
-           list-of-symbols)
+           list-of-symbols)))
   ))
 (defun sclang-find-help-in-gui (topic)
-  "Search for topic in SCDoc Help Browser"
+  "Search for TOPIC in Help Browser."
  (interactive
   (list
    (let ((topic (sclang-symbol-at-point)))
-      (completing-read (format "Help topic%s: " (if topic
+      (completing-read
       (format "Help topic%s: " (if topic
                                    (format " (default %s)" topic)
                                  ""))
-                       sclang-scdoc-topics nil nil nil 'sclang-help-topic-history topic)))
+       sclang-scdoc-topics nil nil nil 'sclang-help-topic-history topic))))
   )
  (if topic
-      (sclang-eval-string (sclang-format "HelpBrowser.openHelpFor(%o)" topic))
+      (sclang-eval-string
-    (sclang-eval-string (sclang-format "Help.gui"))
+       (sclang-format "HelpBrowser.openHelpFor(%o)" topic))
-    )
+    (sclang-eval-string
-  )
+     (sclang-format "Help.gui"))))
 ;; =====================================================================
@ -664,16 +688,18 @@ Either visit file internally (.sc) or start external editor (.rtf)."
          (lambda ()
            (clrhash sclang-scdoc-topics)))
-(add-to-list 'auto-mode-alist '("\\.rtf$" . sclang-help-mode))
+(add-to-list 'auto-mode-alist '("\\.rtf\\'" . sclang-help-mode))
 ;; ========= ADDITION for HTML help files?? ============
 ;; (add-to-list 'auto-mode-alist '("\\.html$" . sclang-help-mode))
 ;; (setq mm-text-html-renderer 'w3m)
 ;;  (setq mm-inline-text-html-with-images t)
 ;;  (setq mm-inline-text-html-with-w3m-keymap nil)
 ;; =====================================================
 (sclang-fill-help-syntax-table sclang-help-mode-syntax-table)
 (sclang-fill-help-mode-map sclang-help-mode-map)
 (provide 'sclang-help)
-;; EOF
+;;; sclang-help.el ends here
--- a/el/sclang-interp.el
+++ b/el/sclang-interp.el
@ -1,5 +1,9 @@
-;; copyright 2003-2005 stefan kersten <steve@k-hornz.de>
+;;; sclang-interp.el --- IDE for working with SuperCollider -*- coding: utf-8;
 ;;
 ;; Copyright 2003 stefan kersten <steve@k-hornz.de>
 ;;; License:
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
 ;; published by the Free Software Foundation; either version 2 of the
@ -15,6 +19,10 @@
 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
 ;; USA
 ;;; Commentary:
 ;; SuperCollider interpreter interface
 (require 'sclang-util)
 (require 'compile)
@ -24,6 +32,8 @@
 ;; FIXME: everything will fail when renaming the post buffer!
 ;;; Code:
 (defconst sclang-post-buffer (sclang-make-buffer-name "PostBuffer")
  "Name of the SuperCollider process output buffer.")
@ -34,7 +44,7 @@
  "Character for highlighting errors (utf-8).")
 (defconst sclang-parse-error-regexp
-  "^\\(WARNING\\|ERROR\\): .*\n[\t ]*in file '\\([^']\+\\)'\n[\t ]*line \\([0-9]\+\\) char \\([0-9]\+\\)"
+  "^\\(WARNING\\|ERROR\\): .*\n[\t ]*in file '\\([^']+\\)'\n[\t ]*line \\([0-9]+\\) char \\([0-9]+\\)"
  "Regular expression matching parse errors during library compilation.")
 (defcustom sclang-max-post-buffer-size 0
@ -52,9 +62,11 @@ Default behavior is to only scroll when point is not at end of buffer."
  :type 'boolean)
 (defun sclang-get-post-buffer ()
  "Get or create the sclang post buffer."
  (get-buffer-create sclang-post-buffer))
 (defmacro with-sclang-post-buffer (&rest body)
  "BODY in the sclang post buffer."
  `(with-current-buffer (sclang-get-post-buffer)
     ,@body))
@ -115,13 +127,14 @@ If EOB-P is non-nil, positions cursor at end of buffer."
         (lambda (&rest args)))
   ;; setup compilation mode
   (compilation-minor-mode)
-   (set (make-variable-buffer-local 'compilation-error-screen-columns) nil)
+   ;; see elisp docs for `make-variable-buffer-local' and `make-local-variable' use cases
-   (set (make-variable-buffer-local 'compilation-error-regexp-alist)
+   (set (make-local-variable 'compilation-error-screen-columns) nil)
   (set (make-local-variable 'compilation-error-regexp-alist)
         (cons (list sclang-parse-error-regexp 2 3 4) compilation-error-regexp-alist))
-   (set (make-variable-buffer-local 'compilation-parse-errors-function)
+   (set (make-local-variable 'compilation-parse-errors-function)
         (lambda (limit-search find-at-least)
          (compilation-parse-errors limit-search find-at-least)))
-   (set (make-variable-buffer-local 'compilation-parse-errors-filename-function)
+   (set (make-local-variable 'compilation-parse-errors-filename-function)
         (lambda (file-name)
           file-name)))
  (sclang-clear-post-buffer)
@ -189,6 +202,7 @@ If EOB-P is non-nil, positions cursor at end of buffer."
 ;; =====================================================================
 (defun sclang-get-process ()
  "Return the current sclang process."
  (get-process sclang-process))
 ;; =====================================================================
@ -217,16 +231,19 @@ If EOB-P is non-nil, positions cursor at end of buffer."
 ;;   initialization
 (defun sclang-library-initialized-p ()
  "Is sclang library initialized?"
  (and (sclang-get-process)
       sclang-library-initialized-p))
 (defun sclang-on-library-startup ()
  "Initialize sclang library."
  (sclang-message "Initializing library...")
  (setq sclang-library-initialized-p t)
  (run-hooks 'sclang-library-startup-hook)
  (sclang-message "Initializing library...done"))
 (defun sclang-on-library-shutdown ()
  "Library shutdown."
  (when sclang-library-initialized-p
    (run-hooks 'sclang-library-shutdown-hook)
    (setq sclang-library-initialized-p nil)
@ -237,6 +254,7 @@ If EOB-P is non-nil, positions cursor at end of buffer."
 ;; =====================================================================
 (defun sclang-process-sentinel (proc msg)
  "Process sentinel PROC MSG."
  (with-sclang-post-buffer
   (goto-char (point-max))
   (insert
@ -248,6 +266,7 @@ If EOB-P is non-nil, positions cursor at end of buffer."
    (sclang-stop-command-process)))
 (defun sclang-process-filter (process string)
  "Process filter PROCESS STRING."
  (let ((buffer (process-buffer process)))
    (with-current-buffer buffer
      (when (and (> sclang-max-post-buffer-size 0)
@ -275,13 +294,16 @@ If EOB-P is non-nil, positions cursor at end of buffer."
 ;; =====================================================================
 (defun sclang-memory-option-p (string)
  "Is STRING an sclang memory option?"
  (let ((case-fold-search nil))
    (string-match "^[1-9][0-9]*[km]?$" string)))
 (defun sclang-port-option-p (number)
  "Is NUMBER a valid sclang port?"
  (and (integerp number) (>= number 0) (<= number #XFFFF)))
 (defun sclang-make-options ()
  "Make options."
  (let ((default-directory ""))
    (nconc
     (when (and sclang-runtime-directory
@ -346,8 +368,7 @@ If EOB-P is non-nil, positions cursor at end of buffer."
  "Recompile class library."
  (interactive)
  (when (sclang-get-process)
-    (process-send-string sclang-process "\x18")
+    (process-send-string sclang-process "\x18")))
    ))
 ;; =====================================================================
 ;; command process
@ -371,23 +392,26 @@ Change this if \"cat\" has a non-standard name or location."
  "Subprocess for receiving command results from sclang.")
 (defconst sclang-cmd-helper-proc "SCLang Command Helper"
-  "Dummy subprocess that will keep the command fifo open for writing
+  "Dummy subprocess that will keep the command fifo open for writing.
-   so reading does not fail automatically when sclang closes its own
+This is needed so reading does not automatically fail when sclang
-   writing end of the fifo")
+closes its own writing end of the fifo.")
 (defvar sclang-command-fifo nil
  "FIFO for communicating with the subprocess.")
 (defun sclang-delete-command-fifo ()
  "Delete the command fifo."
  (and sclang-command-fifo
       (file-exists-p sclang-command-fifo)
       (delete-file sclang-command-fifo)))
 (defun sclang-release-command-fifo ()
  "Release the command fifo."
  (sclang-delete-command-fifo)
  (setq sclang-command-fifo nil))
 (defun sclang-create-command-fifo ()
  "Create the command fifo."
  (setq sclang-command-fifo (make-temp-name
                             (expand-file-name
                              "sclang-command-fifo." temporary-file-directory)))
@ -400,6 +424,7 @@ Change this if \"cat\" has a non-standard name or location."
      (setq sclang-command-fifo nil))))
 (defun sclang-start-command-process ()
  "Start the command process."
  (sclang-create-command-fifo)
  (when sclang-command-fifo
    ;; start the dummy process to keep the fifo open
@ -423,6 +448,7 @@ Change this if \"cat\" has a non-standard name or location."
      (message "SCLang: Couldn't start command process"))))
 (defun sclang-stop-command-process ()
  "Stop the command process."
  (when (get-process sclang-cmd-helper-proc)
    (kill-process sclang-cmd-helper-proc)
    (delete-process sclang-cmd-helper-proc))
@ -434,6 +460,7 @@ Change this if \"cat\" has a non-standard name or location."
  "Unprocessed command process output.")
 (defun sclang-command-process-filter (proc string)
  "Command process filter PROC STRING."
  (when sclang-command-process-previous
    (setq string (concat sclang-command-process-previous string)))
  (let (end)
@ -452,27 +479,31 @@ Change this if \"cat\" has a non-standard name or location."
 ;; symbol property: sclang-command-handler
 (defun sclang-set-command-handler (symbol function)
  "Set command handler SYMBOL to FUNCTION."
  (put symbol 'sclang-command-handler function))
 (defun sclang-perform-command (symbol &rest args)
  "Eval command SYMBOL with ARGS."
  (sclang-eval-string (sclang-format
                       "Emacs.lispPerformCommand(%o, %o, true)"
                       symbol args)))
 (defun sclang-perform-command-no-result (symbol &rest args)
  "Eval command SYMBOL with ARGS.  No result."
  (sclang-eval-string (sclang-format
                       "Emacs.lispPerformCommand(%o, %o, false)"
                       symbol args)))
 (defun sclang-default-command-handler (fun arg)
-  "Default command handler.
+  "Default command handler for FUN with ARG.
 Displays short message on error."
-  (condition-case nil
+  (condition-case err
      (funcall fun arg)
-    (error (sclang-message "Error in command handler") nil)))
+  (error (sclang-message
          (format "Error in command handler: %s" err)) nil)))
 (defun sclang-debug-command-handler (fun arg)
-  "Debugging command handler.
+  "Debugging command handler for FUN with ARG.
 Enters debugger on error."
  (let ((debug-on-error t)
        (debug-on-signal t))
@ -482,20 +513,21 @@ Enters debugger on error."
  "Function called when handling command result.")
 (defun sclang-toggle-debug-command-handler (&optional arg)
-  "Toggle debugging of command handler.
+  "Toggle debugging of command handler (or set with ARG).
-With arg, activate debugging iff arg is positive."
+Activate debugging iff ARG is positive."
  (interactive "P")
  (setq sclang-command-handler
        (if (or (and arg (> arg 0))
                (eq sclang-command-handler 'sclang-debug-command-handler))
            'sclang-default-command-handler
-	  'sclang-default-command-handler))
+          'sclang-debug-command-handler))
  (sclang-message "Command handler debugging %s."
                  (if (eq sclang-command-handler 'sclang-debug-command-handler)
                      "enabled"
                    "disabled")))
 (defun sclang-handle-command-result (list)
  "Handle command result LIST."
  (condition-case nil
      (let ((fun (get (nth 0 list) 'sclang-command-handler))
            (arg (nth 1 list))
@ -520,25 +552,26 @@ With arg, activate debugging iff arg is positive."
  :type 'boolean)
 (defun sclang-send-string (token string &optional force)
  "Send TOKEN STRING to sclang (optionally FORCE)."
  (let ((proc (sclang-get-process)))
    (when (and proc (or (sclang-library-initialized-p) force))
      (process-send-string proc (concat string token))
      string)))
 (defun sclang-eval-string (string &optional print-p)
-  "Send STRING to the sclang process for evaluation and print the result
+  "Evaluate STRING with sclang and print the result if PRINT-P is non-nil.
-if PRINT-P is non-nil. Return STRING if successful, otherwise nil."
+Return STRING if successful, otherwise nil."
  (sclang-send-string
   (if print-p sclang-token-interpret-print-cmd-line sclang-token-interpret-cmd-line)
   string))
 (defun sclang-eval-expression (string &optional silent-p)
-  "Execute STRING as SuperCollider code."
+  "Evaluate STRING as SuperCollider code (suppress output if SILENT-P is non-nil)."
  (interactive "sEval: \nP")
  (sclang-eval-string string (not silent-p)))
 (defun sclang-eval-line (&optional silent-p)
-  "Execute the current line as SuperCollider code."
+  "Evaluate current line with sclang (suppress output if SILENT-P is non-nil)."
  (interactive "P")
  (let ((string (sclang-line-at-point)))
    (when string
@ -549,32 +582,39 @@ if PRINT-P is non-nil. Return STRING if successful, otherwise nil."
    string))
 (defun sclang-eval-region (&optional silent-p)
-  "Execute the region as SuperCollider code."
+  "Evaluate current region with sclang (suppress output if SILENT-P is non-nil)."
  (interactive "P")
  (sclang-eval-string
   (buffer-substring-no-properties (region-beginning) (region-end))
   (not silent-p)))
 (defun sclang-eval-region-or-line (&optional silent-p)
  "Evaluate current line or region (suppress output if SILENT-P is non-nil)."
  (interactive "P")
  (if (and transient-mark-mode mark-active)
      (sclang-eval-region silent-p)
    (sclang-eval-line silent-p)))
 (defun sclang-eval-defun (&optional silent-p)
  "Evaluate current function definition (suppress output if SILENT-P is non-nil)."
  (interactive "P")
  (let ((string (sclang-defun-at-point)))
    (when (and string (string-match "^(" string))
      (sclang-eval-string string (not silent-p))
      string)))
 (defun sclang-eval-dwim ()
  "Evaluate line, region, function or buffer."
  (interactive "P")
  (or (sclang-eval-defun)
      (sclang-eval-region-or-line)))
 (defun sclang-eval-document (&optional silent-p)
-  "Execute the whole document as SuperCollider code."
+  "Evaluate current buffer with sclang (suppress output if SILENT-P is non-nil)."
  (interactive "P")
  (save-excursion
    (mark-whole-buffer)
    (sclang-eval-string
-     (buffer-substring-no-properties (region-beginning) (region-end))
+     (buffer-substring-no-properties (point-min) (point-max))
     (not silent-p))))
 (defvar sclang-eval-results nil
@ -585,7 +625,7 @@ if PRINT-P is non-nil. Return STRING if successful, otherwise nil."
 (lambda (arg) (push arg sclang-eval-results)))
 (defun sclang-eval-sync (string)
-  "Eval STRING in sclang and return result as a lisp value."
+  "Eval STRING in sclang and return result as a Lisp value."
  (let ((proc (get-process sclang-command-process)))
    (if (and (processp proc) (eq (process-status proc) 'run))
        (let ((time (current-time)) (tick 10000) elt)
@ -653,15 +693,18 @@ if PRINT-P is non-nil. Return STRING if successful, otherwise nil."
 (defconst sclang-workspace-buffer (sclang-make-buffer-name "Workspace"))
 (defun sclang-fill-workspace-mode-map (map)
  "Fill the workspace keymap MAP."
  (define-key map "\C-c}" 'bury-buffer))
 (defun sclang-switch-to-workspace ()
  "Switch to SuperCollider workspace buffer."
  (interactive)
  (let ((buffer (get-buffer sclang-workspace-buffer)))
    (unless buffer
      (setq buffer (get-buffer-create sclang-workspace-buffer))
      (with-current-buffer buffer
        (sclang-mode)
        ;; why a buffer local keymap?
        (let ((map (make-sparse-keymap)))
          (set-keymap-parent map sclang-mode-map)
          (sclang-fill-workspace-mode-map map)
@ -690,10 +733,12 @@ if PRINT-P is non-nil. Return STRING if successful, otherwise nil."
 ;; =====================================================================
 (defun sclang-main-run ()
  "Run sclang process."
  (interactive)
  (sclang-eval-string "thisProcess.run"))
 (defun sclang-main-stop ()
  "Stop sclang process."
  (interactive)
  (sclang-eval-string "thisProcess.stop"))
@ -739,6 +784,7 @@ if PRINT-P is non-nil. Return STRING if successful, otherwise nil."
                           (sclang-mode)
                           (switch-to-buffer (current-buffer))))))))
 (provide 'sclang-interp)
-;; EOF
+;;; sclang-interp.el ends here
--- a/el/sclang-keys.el
+++ b/el/sclang-keys.el
@ -1,5 +1,9 @@
-;; copyright 2003 stefan kersten <steve@k-hornz.de>
+;;; sclang-keys.el --- IDE for working with SuperCollider -*- coding: utf-8;
 ;;
 ;; Copyright 2003 stefan kersten <steve@k-hornz.de>
 ;;; License:
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
 ;; published by the Free Software Foundation; either version 2 of the
@ -15,6 +19,15 @@
 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
 ;; USA
 ;;; Commentary:
 ;; Read & send keys between Emacs and SuperCollider
 ;;; Code:
 (eval-and-compile (require 'sclang-util)
                  (require 'sclang-interp))
 ;; (defvar sclang-key-table (make-char-table 'foo))
 ;; (defun sclang-define-key (char beg end)
@ -25,10 +38,9 @@
 ;; (defun sclang-execute-key (char)
 ;;   (sclang-eval-string (sclang-format "Emacs.executeKey(%o)" char)))
 (eval-and-compile (require 'sclang-util)
                  (require 'sclang-interp))
 (defun sclang-read-keys ()
  "Read and send keys between Emacs and SuperCollider."
  (interactive)
  (let (char)
    (clear-this-command-keys)
@ -39,5 +51,7 @@
        (message "%s (%d)" (char-to-string char) char)
        (sclang-eval-string (format "Emacs.keys.at(%d).value(%d)" char char))))))
 ;; EOF
 (provide 'sclang-keys)
 ;;; sclang-keys.el ends here
--- a/el/sclang-language.el
+++ b/el/sclang-language.el
@ -1,5 +1,9 @@
-;; copyright 2003-2005 stefan kersten <steve@k-hornz.de>
+;;; sclang-language.el --- IDE for working with SuperCollider -*- coding: utf-8;
 ;;
 ;; Copyright 2003 stefan kersten <steve@k-hornz.de>
 ;;; License:
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
 ;; published by the Free Software Foundation; either version 2 of the
@ -15,14 +19,20 @@
 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
 ;; USA
 ;;; Commentary:
 ;; Utilities for SuperCollider syntax
 (require 'cl-lib)
 (require 'sclang-browser)
 (require 'sclang-interp)
 (require 'sclang-util)
-;; =====================================================================
+;; ===================================================================
 ;; regexp utilities
-;; =====================================================================
+;; ===================================================================
 ;;; Code:
 (defun sclang-regexp-group (regexp &optional addressable)
  "Enclose REGEXP in grouping parentheses.
@ -37,9 +47,9 @@ separately after matching."
 The expressions are joined as alternatives with the \\| operator."
  (mapconcat 'sclang-regexp-group regexps "\\|"))
-;; =====================================================================
+;; ===================================================================
 ;; some useful regular expressions
-;; =====================================================================
+;; ===================================================================
 (defconst sclang-symbol-regexp
  "\\(?:\\sw\\|\\s_\\)*"
@ -119,9 +129,9 @@ enclosed by parenthesis (`sclang-block-regexp').")
 A specification is of the form <class-name>-<method-name>.")
-;; =====================================================================
+;; ===================================================================
 ;; regexp building
-;; =====================================================================
+;; ===================================================================
 (defun sclang-make-class-definition-regexp (name)
  "Return a regular expression matching the class definition NAME."
@ -138,9 +148,9 @@ A specification is of the form <class-name>-<method-name>.")
  "Return a regular expression matching the method definition NAME."
  (concat "\\(" (regexp-quote name) "\\)\\s *{"))
-;; =====================================================================
+;; ===================================================================
 ;; string matching
-;; =====================================================================
+;; ===================================================================
 (defun sclang-string-match (regexp string)
  "Match REGEXP with STRING while preserving case."
@ -148,48 +158,57 @@ A specification is of the form <class-name>-<method-name>.")
    (string-match regexp string)))
 (defun sclang-symbol-match (symbol-regexp string)
  "Match SYMBOL-REGEXP in STRING."
  (sclang-string-match (concat "^" symbol-regexp "$") string))
-;; =====================================================================
+;; ===================================================================
 ;; symbol name predicates
-;; =====================================================================
+;; ===================================================================
 (defun sclang-class-name-p (string)
  "Is STRING an sclang class name?"
  (sclang-symbol-match sclang-class-name-regexp string))
 (defun sclang-meta-class-name-p (string)
  "Is STRING an sclang meta class name?"
  (and (sclang-class-name-p string)
       (sclang-string-match "^Meta_" string)))
 (defun sclang-method-name-p (string)
  "Is STRING an sclang method name?"
  (sclang-symbol-match sclang-method-name-regexp string))
 (defun sclang-symbol-name-p (string)
  "Is STRING an sclang symbol name?"
  (sclang-symbol-match sclang-symbol-name-regexp string))
 (defun sclang-method-name-setter-p (method-name)
  "Is METHOD-NAME an sclang method name setter?"
  (string-match "_$" method-name))
 (defun sclang-method-name-getter-p (method-name)
  "Is METHOD-NAME an sclang method name getter?"
  (not (sclang-method-name-setter-p method-name)))
-;; =====================================================================
+;; ===================================================================
 ;; symbol name manipulation
-;; =====================================================================
+;; ===================================================================
 (defun sclang-method-name-setter (method-name)
  "Return a method name setter for METHOD-NAME."
  (if (sclang-method-name-setter-p method-name)
      method-name
    (concat method-name "_")))
 (defun sclang-method-name-getter (method-name)
  "Return a method name getter for METHOD-NAME."
  (if (sclang-method-name-setter-p method-name)
      (substring method-name 0 (1- (length method-name)))
    method-name))
-;; =====================================================================
+;; ===================================================================
 ;; symbol table access
-;; =====================================================================
+;; ===================================================================
 (defcustom sclang-use-symbol-table t
  "*Retrieve symbol table upon library initialization.
@ -238,17 +257,21 @@ low-resource systems."
            (sclang-update-font-lock)))
 (defun sclang-get-symbol-completion-table ()
  "Get symbol completion table."
  (mapcar (lambda (s) (cons s nil)) sclang-symbol-table))
 (defun sclang-make-symbol-completion-predicate (predicate)
  "Make symbol completion PREDICATE."
  (and predicate (lambda (assoc) (funcall predicate (car assoc)))))
 (defun sclang-get-symbol (string)
  "Get symbol named STRING."
  (if (and sclang-use-symbol-table sclang-symbol-table)
      (car (member string sclang-symbol-table))
    string))
 (defun sclang-read-symbol (prompt &optional default predicate require-match inherit-input-method)
 "Read symbol PROMPT (options DEFAULT PREDICATE REQUIRE-MATCH and INHERIT-INPUT-METHOD)."
  (if sclang-use-symbol-table
      (cl-flet ((make-minibuffer-local-map
                  (parent-keymap)
@ -271,14 +294,12 @@ low-resource systems."
    (read-string (sclang-make-prompt-string prompt default) nil
                 'sclang-symbol-history default inherit-input-method)))
-;; =====================================================================
+;; ===================================================================
 ;; buffer movement
-;; =====================================================================
+;; ===================================================================
 (defun sclang-point-in-comment-p ()
-  "Return non-nil if point is inside a comment.
+  "Return non-nil if point is inside a comment."
 Use font-lock information if font-lock-mode is enabled."
  (if (and (boundp 'font-lock-mode) (eval 'font-lock-mode))
      ;; use available information in font-lock-mode
      (eq (get-text-property (point) 'face) 'font-lock-comment-face)
@ -289,6 +310,7 @@ Use font-lock information if font-lock-mode is enabled."
        (not (null (nth 4 (parse-partial-sexp (point) beg))))))))
 (defun sclang-beginning-of-defun (&optional arg)
  "Move to beginning of function (optionally ARG)."
  (interactive "p")
  (let ((case-fold-search nil)
        (arg (or arg (prefix-numeric-value current-prefix-arg)))
@ -324,6 +346,7 @@ Return value is nil or (beg end) of defun."
           (list beg end)))))
 (defun sclang-end-of-defun (&optional arg)
  "Move to end of function (optionally ARG)."
  (interactive "p")
  (let ((case-fold-search nil)
        (arg (or arg (prefix-numeric-value current-prefix-arg)))
@ -351,9 +374,9 @@ Return value is nil or (beg end) of defun."
    (when success
      (forward-line 1) t)))
-;; =====================================================================
+;; ===================================================================
 ;; buffer object access
-;; =====================================================================
+;; ===================================================================
 (defun sclang-symbol-at-point (&optional symbol-name-regexp)
  "Return the symbol at point, or nil if not a valid symbol.
@ -394,9 +417,9 @@ A defun may either be a class definition or a code block, see
      (cl-multiple-value-bind (beg end) (sclang-point-in-defun-p)
        (and beg end (buffer-substring-no-properties beg end))))))
-;; =====================================================================
+;; ===================================================================
 ;; symbol completion
-;; =====================================================================
+;; ===================================================================
 (defun sclang-complete-symbol (&optional predicate)
  "Perform completion on symbol preceding point.
@ -471,9 +494,9 @@ are considered."
          :exclusive 'no
          :company-docsig #'identity)))
-;; =====================================================================
+;; ===================================================================
 ;; introspection
-;; =====================================================================
+;; ===================================================================
 (defcustom sclang-definition-marker-ring-length 32
  "*Length of marker ring `sclang-definition-marker-ring'."
@ -492,6 +515,7 @@ are considered."
                  (make-ring sclang-definition-marker-ring-length))))
 (defun sclang-open-definition (name file pos &optional pos-func)
  "Open definition NAME in FILE at POS (optionally POS-FUNC)."
  (let ((buffer (find-file file)))
    (when (bufferp buffer)
      (with-current-buffer buffer
@ -512,6 +536,7 @@ are considered."
      (set-marker marker nil nil))))
 (defun sclang-browse-definitions (name definitions buffer-name header &optional pos-func)
  "Browse definitions.  NAME DEFINITIONS BUFFER-NAME HEADER (optionally POS-FUNC)."
  (if (cdr definitions)
      (let ((same-window-buffer-names (list buffer-name)))
        (with-sclang-browser
@ -630,7 +655,7 @@ are considered."
       (sclang-message "No references to '%s'" name)))))
 (defun sclang-show-method-args ()
-  "whooha. in full effect."
+  "Show method args."
  (interactive)
  (let ((regexp (concat
                 sclang-class-name-regexp
@ -683,9 +708,9 @@ are considered."
                          class 'sclang-class-name-p t))))
  (sclang-eval-string (format "%s.dumpInterface" class)))
-;; =====================================================================
+;; ===================================================================
 ;; cscope interface
-;; =====================================================================
+;; ===================================================================
 (defcustom sclang-source-directory nil
  "Toplevel SuperCollider source directory.
@ -698,7 +723,7 @@ database."
  :options '(must-match))
 (defun sclang-find-primitive (name)
-  "Find primitive name a cscope database.
+  "Find primitive NAME in a cscope database.
 The database is searched in `sclang-source-directory', or the
 current-directory, iff `sclang-source-directoy' is nil."
@ -708,23 +733,26 @@ current-directory, iff `sclang-source-directoy' is nil."
                        nil nil default))))
  (if (require 'xcscope nil t)
      (let ((cscope-initial-directory sclang-source-directory))
        ;; only fboundp when xcscope is loaded
        (cscope-find-this-text-string
         (if (string-match "^_" name) name (concat "_" name))))
    (sclang-message "cscope not available")))
-;; =====================================================================
+;; ===================================================================
 ;; sc-code formatting
-;; =====================================================================
+;; ===================================================================
 (defun sclang-list-to-string (list)
  "Convert sclang LIST to string."
  (mapconcat 'sclang-object-to-string list ", "))
-(defconst false 'false)
+(defconst sclang-false 'false)
 (defun sclang-object-to-string (obj)
  "Convert sclang object OBJ  to string."
  (cond ((null obj)
         "nil")
-	((eq false obj)
+        ((eq sclang-false obj)
         "false")
        ((eq t obj)
         "true")
@ -735,7 +763,7 @@ current-directory, iff `sclang-source-directoy' is nil."
        (t (format "%S" obj))))
 (defun sclang-format (string &rest args)
-  "format chars:
+  "Format STRING using ARGS.
 %s - print string
 %o - print object
 %l - print argument list"
@ -798,7 +826,8 @@ want smart pattern guessing, use `sclang-format' directly to format your Pseq."
                                (cl-decf i))))
                          (cl-decf rep)))
                      (accept-process-output nil 0 100)
-		     (message "Processed...%S" ret) ;; invent better progress info
+                      ;; invent better progress info
                      (message "Processed...%S" ret)
                      (setq r (append r (list ret))
                            items (nthcdr skip items))))
                  r))
@ -816,10 +845,10 @@ want smart pattern guessing, use `sclang-format' directly to format your Pseq."
                (mapconcat #'elem-to-string compressed ", ")
                " ], 1)")))))
-;; =====================================================================
+;; ===================================================================
 ;; module setup
-;; =====================================================================
+;; ===================================================================
 (provide 'sclang-language)
-;; EOF
+;;; sclang-language.el ends here
--- a/el/sclang-menu.el
+++ b/el/sclang-menu.el
@ -1,5 +1,9 @@
-;; copyright 2003 stefan kersten <steve@k-hornz.de>
+;;; sclang-menu.el --- IDE for working with SuperCollider -*- coding: utf-8;
 ;;
 ;; Copyright 2003 stefan kersten <steve@k-hornz.de>
 ;;; License:
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
 ;; published by the Free Software Foundation; either version 2 of the
@ -15,9 +19,16 @@
 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
 ;; USA
 ;;; Commentary:
 ;; Menus
 ;;; Code:
 ;; (sclang-set-command-handler
 ;;  '_updateMenu
 ;;  (lambda (arg)
 ;;    (message "menu: %s" arg)))
 (provide 'sclang-menu)
 ;;; sclang-menu.el ends here
--- a/el/sclang-minor-mode.el
+++ b/el/sclang-minor-mode.el
@ -1,7 +1,9 @@
-;;; sclang-minor-mode for use in help files
+;;; sclang-minor-mode.el --- IDE for working with SuperCollider -*- coding: utf-8;
-;;; SuperCollider
+;;
-;;; (c) 2007, Marije Baalman - nescivi <nescivi@gmail.com>
+;; Copyright (c) 2007, Marije Baalman - nescivi <nescivi@gmail.com>
-;;;
+
 ;;; License:
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
 ;;; the Free Software Foundation; either version 2 of the License, or
@ -16,6 +18,12 @@
 ;;; along with this program; if not, write to the Free Software
 ;;;  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301  USA
 ;;; Commentary:
 ;;
 ;; sclang-minor-mode for use in help files
 ;;; Code:
 (require 'sclang-util)
 (require 'sclang-mode)
@ -25,53 +33,55 @@ With no argument, this command toggles the mode.
 Non-null prefix argument turns on the mode.
 Null prefix argument turns off the mode.
-When sclang-minor-mode is enabled, you can execute
+When sclang-minor-mode is enabled, you can use the key sequences
-sclang code with the normal command C-c C-c and C-c C-d."
+\\<sclang-minor-mode-map>\\[sclang-eval-region-or-line] or \\<sclang-minor-mode-map>\\[sclang-eval-region] to eval sclang code."
  ;; The initial value.
- nil
+  :init-value nil
  ;; The indicator for the mode line.
- " sclang"
+  :lighter " sclang"
  ;; The minor mode bindings.
- '(("\C-c\C-c" . sclang-eval-region-or-line)
+  :keymap '(("\C-c\C-c" . sclang-eval-region-or-line)
            ("\C-c\C-d" . sclang-eval-region)
            ("\C-\M-x"  . sclang-eval-defun)
            ("\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)
+            ("\C-c\C-k" . sclang-edit-dev-source)))
 ))
 (provide 'sclang-minor-mode)
 (easy-mmode-define-minor-mode sclang-help-minor-mode
  "Toggle sclang-minor-mode.
 With no argument, this command toggles the mode.
 Non-null prefix argument turns on the mode.
 Null prefix argument turns off the mode.
-When sclang-help-minor-mode is enabled, you can execute
+When sclang-help-minor-mode is enabled, you can use the key sequences
-sclang code with the normal command C-c C-c and C-c C-d."
+\\<sclang-minor-mode-map>\\[sclang-eval-region-or-line] or \\<sclang-minor-mode-map>\\[sclang-eval-region] to eval sclang code."
  ;; The initial value.
- nil
+  :init-value nil
  ;; The indicator for the mode line.
- " sclang-help"
+  :lighter " sclang-help"
  ;; The minor mode bindings.
- '(("\C-c\C-c" . sclang-eval-region-or-line)
+  :keymap '(("\C-c\C-c" . sclang-eval-region-or-line)
            ("\C-c\C-d" . sclang-eval-region)
            ("\C-\M-x" . sclang-eval-defun)
            ("\C-c\C-h" . sclang-find-help)
            ("\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)
+            ("\C-c\C-k" . sclang-edit-dev-source)))
 ))
 (provide 'sclang-help-minor-mode)
 ;; mode hooks
 (defun sclang-minor-hooks ()
  "Sclang minor mode hooks."
  (sclang-init-document)
  (sclang-make-document))
 (add-hook 'sclang-help-minor-mode-hook 'sclang-minor-hooks)
 (add-hook 'sclang-minor-mode-hook 'sclang-minor-hooks)
-(defun sclang-minor-hooks ()
+;;; sclang-minor-mode.el ends here
  (sclang-init-document)
  (sclang-make-document)
  )
--- a/el/sclang-mode.el
+++ b/el/sclang-mode.el
@ -1,5 +1,9 @@
-;; copyright 2003-2005 stefan kersten <steve@k-hornz.de>
+;;; sclang-mode.el --- IDE for working with SuperCollider -*- coding: utf-8;
 ;;
 ;; Copyright 2003 stefan kersten <steve@k-hornz.de>
 ;;; License:
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
 ;; published by the Free Software Foundation; either version 2 of the
@ -15,12 +19,14 @@
 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
 ;; USA
 ;;; Code:
 ;;; Commentary:
 ;; sclang mode
 ;;; Code:
 (require 'cl-lib)
-;; Make byte-compiler happy by declaring external functions and
+;; Keep byte-compiler happy by declaring external functions and variables.
 ;; variables.
 (declare-function company-mode "ext:company")
 (defvar company-backends)
@ -31,7 +37,7 @@
 (require 'sclang-dev)
 (defun sclang-fill-syntax-table (table)
-  ;; string
+  "Fill the sclang syntax TABLE."
  (modify-syntax-entry ?\" "\"" table)
  (modify-syntax-entry ?\' "\"" table) ; no string syntax class for single quotes
  ;; expression prefix
@ -75,10 +81,10 @@
  table)
 (defun sclang-mode-make-menu (title)
  "Make mode menu with TITLE."
  (easy-menu-create-menu
   title
-   '(
+   '(["Start Interpreter"           sclang-start :included (not (sclang-library-initialized-p))]
 	 ["Start Interpreter"		sclang-start :included (not (sclang-library-initialized-p))]
     ["Restart Interpreter"                 sclang-start :included (sclang-library-initialized-p)]
     ["Recompile Class Library"     sclang-recompile :included (sclang-library-initialized-p)]
     ["Stop Interpreter"            sclang-stop      :included (sclang-get-process)]
@ -110,10 +116,12 @@
     "-"
     ["Run Main"                            sclang-main-run]
     ["Stop Main"                           sclang-main-stop]
-	 ["Show Server Panels"		sclang-show-server-panel]
+     ["Show Server Panels"          sclang-show-server-panel])))
 	 )))
 (defun sclang-fill-mode-map (map)
  "Fill keymap MAP for sclang mode."
  ;; NOTE: keybindings should follow the conventions in https://www.gnu.org/software/emacs/manual/html_node/elisp/Key-Binding-Conventions.html
  ;; process control
  (define-key map "\C-c\C-l"            'sclang-recompile)
  (define-key map "\C-c\C-o"            'sclang-start)
@ -137,10 +145,10 @@
  (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-c\C-?f"           'sclang-find-help)
-  (define-key map "\C-\M-h"			'sclang-goto-help-browser)
+  (define-key map "\C-c\C-?g"           'sclang-goto-help-browser)
-  (define-key map "\C-c\C-y"		'sclang-open-help-gui)
+  (define-key map ""                    'sclang-open-help-gui)
-  (define-key map "\C-ch"			'sclang-find-help-in-gui)
+  (define-key map ""                    'sclang-find-help-in-gui)
  ;; language control
  (define-key map "\C-c\C-r"            'sclang-main-run)
  (define-key map "\C-c\C-s"            'sclang-main-stop)
@ -163,8 +171,7 @@
 ;; =====================================================================
 (defconst sclang-font-lock-keyword-list
-  '(
+  '("arg"
    "arg"
    "classvar"
    "const"
    "super"
@ -174,22 +181,18 @@
    "thisMethod"
    "thisProcess"
    "thisThread"
-    "var"
+    "var")
    )
  "*List of keywords to highlight in SCLang mode.")
 (defconst sclang-font-lock-builtin-list
-  '(
+  '("false"
    "false"
    "inf"
    "nil"
-    "true"
+    "true")
    )
  "*List of builtins to highlight in SCLang mode.")
 (defconst sclang-font-lock-method-list
-  '(
+  '("ar"
    "ar"
    "for"
    "forBy"
    "if"
@ -197,19 +200,16 @@
    "kr"
    "tr"
    "loop"
-    "while"
+    "while")
    )
  "*List of methods to highlight in SCLang mode.")
 (defconst sclang-font-lock-error-list
-  '(
+  '("die"
    "die"
    "error"
    "exit"
    "halt"
    "verboseHalt"
-    "warn"
+    "warn")
    )
  "*List of methods signalling errors or warnings.")
 (defvar sclang-font-lock-class-keywords nil)
@ -229,14 +229,13 @@
 (defconst sclang-font-lock-defaults '((sclang-font-lock-keywords
                                       sclang-font-lock-keywords-1
                                       sclang-font-lock-keywords-2
-				       sclang-font-lock-keywords-3
+                                       sclang-font-lock-keywords-3)
 				       )
                                      nil nil
                                      nil
-				      beginning-of-defun
+                                      beginning-of-defun))
 				      ))
 (defun sclang-font-lock-syntactic-face (state)
  "Return font lock face for STATE."
  (cond ((eq (nth 3 state) ?')
         ;; symbol
         'font-lock-constant-face)
@ -248,6 +247,7 @@
         'font-lock-comment-face)))
 (defun sclang-font-lock-class-keyword-matcher (limit)
  "Font lock class keywords up to LIMIT."
  (let ((regexp (concat "\\<" sclang-class-name-regexp "\\>"))
        (case-fold-search nil)
        (continue t)
@ -264,6 +264,7 @@
    res))
 (defun sclang-set-font-lock-keywords ()
  "Set font lock keywords."
  (setq
   ;; level 1
   sclang-font-lock-keywords-1
@ -279,8 +280,7 @@
    ;; constants
    (cons "\\s/\\s\\?." 'font-lock-constant-face) ; characters
    (cons (concat "\\\\\\(" sclang-symbol-regexp "\\)")
-	  'font-lock-constant-face)	; symbols
+          'font-lock-constant-face))     ; symbols
    )
   ;; level 2
   sclang-font-lock-keywords-2
   (append
@ -299,23 +299,19 @@
           'font-lock-function-name-face)
     ;; errors
     (cons (regexp-opt sclang-font-lock-error-list 'words)
-	   'font-lock-warning-face)
+           'font-lock-warning-face)))
     ))
   ;; level 3
   sclang-font-lock-keywords-3
   (append
    sclang-font-lock-keywords-2
    (list
     ;; classes
-     (cons 'sclang-font-lock-class-keyword-matcher 'font-lock-type-face)
+     (cons 'sclang-font-lock-class-keyword-matcher 'font-lock-type-face)))
 ;;      (cons (concat "\\<" sclang-class-name-regexp "\\>") 'font-lock-type-face)
     ))
   ;; default level
-   sclang-font-lock-keywords sclang-font-lock-keywords-1
+   sclang-font-lock-keywords sclang-font-lock-keywords-1))
   ))
 (defun sclang-update-font-lock ()
-  "Update font-lock information in all sclang-mode buffers."
+  "Update font-lock information in all `sclang-mode' buffers."
  ;; too expensive
  ;;   (dolist (buffer (buffer-list))
  ;;     (with-current-buffer buffer
@ -323,7 +319,7 @@
  ;;       (eq t (car font-lock-keywords))
  ;;       (setq font-lock-keywords (cdr font-lock-keywords)))))
  (if (eq major-mode 'sclang-mode)
-      (font-lock-fontify-buffer)))
+      (font-lock-ensure (point-min) (point-max))))
 ;; =====================================================================
 ;; indentation
@ -337,7 +333,7 @@
 (defun sclang-indent-line ()
  "Indent current line as sclang code.
 Return the amount the indentation changed by."
-  (let ((indent (calculate-sclang-indent))
+  (let ((indent (sclang-calculate-indent))
        beg shift-amt
        (case-fold-search nil)
        (pos (- (point-max) (point))))
@ -356,8 +352,8 @@ Return the amount the indentation changed by."
          (goto-char (- (point-max) pos))))
    shift-amt))
-(defun calculate-sclang-indent (&optional parse-start)
+(defun sclang-calculate-indent (&optional parse-start)
-  "Return appropriate indentation for current line as sclang code.
+  "Return indentation for current line (optionally from PARSE-START).
 Returns the column to indent to."
  (save-excursion
    (beginning-of-line)
@ -410,6 +406,7 @@ Returns the column to indent to."
 ;; =====================================================================
 (defun sclang-electric-brace (arg)
  "Electrify brace ARG."
  (interactive "*P")
  (self-insert-command (prefix-numeric-value arg))
  (and (save-excursion
@ -418,6 +415,7 @@ Returns the column to indent to."
       (indent-according-to-mode)))
 (defun sclang-electric-slash (arg)
  "Electrify slash ARG."
  (interactive "*P")
  (let* ((char (char-before))
         (indent-p (or (eq char ?/)
@ -426,6 +424,7 @@ Returns the column to indent to."
    (if indent-p (indent-according-to-mode))))
 (defun sclang-electric-star (arg)
  "Electrify star ARG."
  (interactive "*P")
  (let ((indent-p (eq (char-before) ?/)))
    (self-insert-command (prefix-numeric-value arg))
@ -454,24 +453,30 @@ Returns the column to indent to."
    (sclang-document-edited-p . (prSetEdited (buffer-modified-p)))))
 (defmacro sclang-next-document-id ()
  "Return next document id."
  `(cl-incf sclang-document-counter))
 (defun sclang-document-id (buffer)
  "Document id of BUFFER."
  (cdr (assq 'sclang-document-id (buffer-local-variables buffer))))
 (defun sclang-document-p (buffer)
  "Is BUFFER an sclang document?"
  (integerp (sclang-document-id buffer)))
 (defmacro with-sclang-document (buffer &rest body)
  "With sclang BUFFER BODY."
  `(when (sclang-document-p buffer)
     (with-current-buffer buffer
       ,@body)))
 (defun sclang-get-document (id)
  "Return buffer with document ID or nil."
  (cl-find-if (lambda (buffer) (eq id (sclang-document-id buffer)))
              sclang-document-list))
 (defun sclang-init-document ()
  "Initialize document."
  (set (make-local-variable 'sclang-document-id) (sclang-next-document-id))
  (set (make-local-variable 'sclang-document-envir) nil)
  (dolist (assoc sclang-document-property-map)
@ -479,6 +484,7 @@ Returns the column to indent to."
  (cl-pushnew (current-buffer) sclang-document-list))
 (defun sclang-document-update-property-1 (assoc &optional force)
  "Update document property ASSOC (optionally FORCE)."
  (when (consp assoc)
    (let* ((key (car assoc))
           (prop (cdr assoc))
@ -491,17 +497,21 @@ Returns the column to indent to."
         (car prop) cur-value)))))
 (defun sclang-document-update-property (key &optional force)
  "Update document property KEY (optionally FORCE)."
  (sclang-document-update-property-1 (assq key sclang-document-property-map) force))
 (defun sclang-document-update-properties (&optional force)
  "Update all document properties (optionally FORCE)."
  (dolist (assoc sclang-document-property-map)
    (sclang-document-update-property-1 assoc force)))
 (defun sclang-make-document ()
  "Make a new document."
  (sclang-perform-command-no-result 'documentNew sclang-document-id)
  (sclang-document-update-properties t))
 (defun sclang-close-document (buffer)
  "Close document in BUFFER."
  (with-sclang-document
   buffer
   (setq sclang-document-list (delq buffer sclang-document-list))
@ -509,27 +519,32 @@ Returns the column to indent to."
    'documentClosed sclang-document-id)))
 (defun sclang-set-current-document (buffer &optional force)
  "Set current document to BUFFER (optionally FORCE)."
  (when (or force (not (eq buffer sclang-current-document)))
    (setq sclang-current-document buffer)
    (sclang-perform-command-no-result 'documentSetCurrent (sclang-document-id buffer))
    t))
 (defun sclang-document-library-startup-hook-function ()
  "Document library startup hook."
  (dolist (buffer sclang-document-list)
    (with-current-buffer buffer
      (sclang-make-document)))
  (sclang-set-current-document (current-buffer) t))
 (defun sclang-document-kill-buffer-hook-function ()
  "Document kill buffer hook."
  (sclang-close-document (current-buffer)))
 (defun sclang-document-post-command-hook-function ()
  "Document post command hook."
  (when (and (sclang-library-initialized-p)
             (sclang-document-p (current-buffer)))
    (sclang-document-update-properties))
  (sclang-set-current-document (current-buffer)))
 (defun sclang-document-change-major-mode-hook-function ()
  "Document change major mode hook."
  (sclang-close-document (current-buffer)))
 ;; =====================================================================
@ -605,8 +620,7 @@ Returns the column to indent to."
     (let ((doc (and (integerp id) (sclang-get-document id))))
       (when doc
         (with-current-buffer doc
-	 (insert str)
+           (insert str))
 	 )
         nil)))))
 (sclang-set-command-handler
@ -621,6 +635,7 @@ Returns the column to indent to."
 ;; =====================================================================
 (defun sclang-mode-set-local-variables ()
  "Local variables."
  (set (make-local-variable 'require-final-newline) nil)
  ;; indentation
  (set (make-local-variable 'indent-line-function)
@ -700,4 +715,5 @@ Returns the column to indent to."
 (add-hook 'change-major-mode-hook 'sclang-document-change-major-mode-hook-function)
 (provide 'sclang-mode)
-;;; sclang-mode ends here
+
 ;;; sclang-mode.el ends here
--- a/el/sclang-server.el
+++ b/el/sclang-server.el
@ -1,5 +1,9 @@
-;; copyright 2003-2005 stefan kersten <steve@k-hornz.de>
+;;; sclang-server.el --- IDE for working with SuperCollider -*- coding: utf-8;
 ;;
 ;; Copyright 2003 stefan kersten <steve@k-hornz.de>
 ;;; License:
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
 ;; published by the Free Software Foundation; either version 2 of the
@ -15,12 +19,18 @@
 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
 ;; USA
 ;;; Commentary:
 ;; Interface to the sclang server
 (require 'cl-lib)
 (require 'sclang-util)
 (require 'sclang-interp)
 (require 'sclang-language)
 (require 'sclang-mode)
 ;;; Code:
 (defcustom sclang-server-panel "Server.default.makeWindow"
  "Expression to execute when `sclang-show-server-panel' is invoked."
  :group 'sclang-interface
@ -47,10 +57,12 @@
  "Face for highlighting a server's running state in the mode-line.")
 (defun sclang-get-server (&optional name)
  "Get sclang server (optionally by NAME)."
  (unless name (setq name sclang-current-server))
  (cdr (assq name sclang-server-alist)))
 (defun sclang-set-server (&optional name)
  "Set current sclang server (optionally by NAME)."
  (unless name (setq name sclang-current-server))
  (setq sclang-current-server
        (car (or (assq name sclang-server-alist)
@ -79,18 +91,21 @@
    (setq sclang-current-server (car (car list))))
  (sclang-update-server-info))
-(defun sclang-mouse-next-server (event)
+(defun sclang-mouse-next-server (_event)
  "Select next server for display."
  (interactive "e")
  (sclang-next-server))
 (defun sclang-server-running-p (&optional name)
  "Is the sclang server NAME running?"
  (plist-get (sclang-get-server name) 'running))
 (defun sclang-server-booting-p (&optional name)
  "Is the sclang server NAME running?"
  (plist-get (sclang-get-server name) 'booting))
 (defun sclang-create-server-menu (title)
  "Create the server menu with TITLE."
  (easy-menu-create-menu
   title
   '(
@ -101,6 +116,7 @@
     ["Make Default" sclang-server-make-default])))
 (defun sclang-server-fill-mouse-map (map prefix)
  "Fill mouse MAP using PREFIX."
  (define-key map (vector prefix 'mouse-1) 'sclang-mouse-next-server)
  (define-key map (vector prefix 'down-mouse-3) (sclang-create-server-menu "Commands"))
  map)
@ -109,7 +125,7 @@
  "Keymap used for controlling servers in the mode line.")
 (defun sclang-server-fill-key-map (map)
-  "Fill server prefix map."
+  "Fill server keymap MAP."
  (define-key map [?b] 'sclang-server-boot)
  (define-key map [?d] 'sclang-server-display-default)
  (define-key map [?f] 'sclang-server-free-all)
@ -154,6 +170,7 @@
  "Info string used in the post buffer mode line.")
 (defun sclang-update-server-info ()
  "Update server info in the modeline."
  (interactive)
  (sclang-set-server)
  (setq sclang-server-info-string (sclang-get-server-info-string))
@ -164,8 +181,10 @@
 ;; =====================================================================
 (defun sclang-perform-server-command (command &rest args)
  "Perform server COMMAND with ARGS."
  (sclang-eval-string
-   (sclang-format "Server.named.at(%o.asSymbol).performList(\\tryPerform, %o.asSymbol.asArray ++ %o)"
+   (sclang-format
    "Server.named.at(%o.asSymbol).performList(\\tryPerform, %o.asSymbol.asArray ++ %o)"
    sclang-current-server command args)
   nil))
@ -213,7 +232,7 @@ if (server.notNil) {
    nil))
 (defun sclang-server-dump-osc (&optional code)
-  "Set the current server's dump OSC mode."
+  "Set the current server's dump OSC mode (with optional CODE)."
  (interactive "P")
  (sclang-perform-server-command "dumpOSC"
                                 (cond ((consp code) 0)
@ -221,7 +240,7 @@ if (server.notNil) {
                                       (t code))))
 (defun sclang-server-prepare-for-record (&optional path)
-  "Prepare current server for recording a sound file."
+  "Prepare current server for recording a sound file (with optional PATH)."
  (interactive
   (list
    (and current-prefix-arg (read-file-name "Record to file: "))))
@ -242,10 +261,10 @@ if (server.notNil) {
  (interactive)
  (sclang-perform-server-command "stopRecording"))
-(defun sclang-set-server-latency (lat)
+(defun sclang-set-server-latency (latency)
-  "Set the current server's `latency' instance variable."
+  "Set the current server's LATENCY instance variable."
  (interactive "nSet latency: ")
-  (sclang-perform-server-command "latency_" lat))
+  (sclang-perform-server-command "latency_" latency))
 (defun sclang-show-server-latency ()
  "Show the current server's latency."
@ -274,6 +293,7 @@ if (server.notNil) {
          (lambda ()
            (setq sclang-current-server-initialized nil)))
 (provide 'sclang-server)
-;; EOF
+;;; sclang-server.el ends here
--- a/el/sclang-util.el
+++ b/el/sclang-util.el
@ -1,7 +1,9 @@
-;;; package: sclang-util --- Utility helpers for sclang
+;;; sclang-util.el --- Utility helpers for sclang -*- coding: utf-8;
 ;;
 ;; copyright 2003-2005 stefan kersten <steve@k-hornz.de>
 ;;
 ;; Copyright 2003-2005 stefan kersten <steve@k-hornz.de>
 ;;; License:
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
 ;; published by the Free Software Foundation; either version 2 of the
@ -17,13 +19,20 @@
 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
 ;; USA
 ;;; Commentary:
 ;; Utility helpers for sclang
 ;;; Code:
 (defun sclang-message (string &rest args)
  "Create a message from STRING with optional ARGS."
  (message "SCLang: %s" (apply 'format string args)))
-(defun sclang-make-buffer-name (string &optional private-p)
+(defun sclang-make-buffer-name (name &optional private-p)
-  (concat (and private-p " ") "*SCLang:" string "*"))
+  "Set the buffer name to NAME (optimally PRIVATE-P)."
  (concat (and private-p " ") "*SCLang:" name "*"))
 (defun sclang-make-prompt-string (prompt default)
  "Return a prompt string using PROMPT and DEFAULT."
  (if (and default (string-match "\\(:\\)\\s *" prompt))
      (replace-match
       (format " (default %s):" default)
@ -31,22 +40,23 @@
    prompt))
 (defun sclang-string-to-int32 (str)
-  "Convert first 4 bytes of str (network byteorder) to 32 bit integer."
+  "Convert first 4 bytes of STR (network byteorder) to 32 bit integer."
-  (logior (lsh (logand (aref str 0) #XFF) 24)
+  (logior (ash (logand (aref str 0) #XFF) 24)
-	  (lsh (logand (aref str 1) #XFF) 16)
+	  (ash (logand (aref str 1) #XFF) 16)
-	  (lsh (logand (aref str 2) #XFF) 8)
+	  (ash (logand (aref str 2) #XFF) 8)
 	  (logand (aref str 3) #XFF)))
 (defun sclang-int32-to-string (n)
-  "Convert 32 bit integer n to 4 byte string (network byte order)."
+  "Convert 32 bit integer N to 4 byte string (network byte order)."
  (let ((str (make-string 4 0)))
-    (aset str 0 (logand (lsh n -24) #XFF))
+    (aset str 0 (logand (ash n -24) #XFF))
-    (aset str 1 (logand (lsh n -16) #XFF))
+    (aset str 1 (logand (ash n -16) #XFF))
-    (aset str 2 (logand (lsh n  -8) #XFF))
+    (aset str 2 (logand (ash n  -8) #XFF))
    (aset str 3 (logand          n  #XFF))
    str))
 (defun sclang-compress-newlines (&optional buffer)
  "Compress newlines (optionally in BUFFER)."
  (with-current-buffer (or buffer (current-buffer))
    (save-excursion
      (goto-char (point-min))
--- a/el/sclang-vars.el.in
+++ b/el/sclang-vars.el.in
@ -35,4 +35,5 @@
 Bound only when library is installed with SuperCollider.")
 (provide 'sclang-vars)
 ;;; sclang-vars.el ends here
--- a/el/sclang-widgets.el
+++ b/el/sclang-widgets.el
@ -1,9 +1,8 @@
-;;; sclang-widgets.el --- Widget definitions for SCLang
+;;; sclang-widgets.el --- Widget definitions for SCLang -*- coding: utf-8; lexical-binding: t -*-
 ;; Copyright (C) 2005 Free Software Foundation, Inc.
 ;; Author: Mario Lang <mlang@blind.guru>
 ;; Keywords: comm
 ;; This file is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@ -21,8 +20,8 @@
 ;; Boston, MA 02110-1301, USA.
 ;;; Commentary:
 ;;
 ;;  Widget definitions for SCLang
 ;;; Code:
@ -31,6 +30,9 @@
 (require 'sclang-language)
 (require 'sclang-interp)
 (require 'widget)
 (require 'wid-edit)
 (defvar sclang-widgets nil)
 (make-variable-buffer-local 'sclang-widgets)
@ -46,13 +48,13 @@
  (widget-specify-insert
   (let ((from (point))
         button-begin button-end)
-     (setq button-begin (point))
+     (setq button-begin from)
     (insert (widget-get-indirect widget :button-prefix))
     (princ (nth (widget-get widget :value) (widget-get widget :states)) (current-buffer))
     (insert (widget-get-indirect widget :button-suffix))
-     (setq button-end (point))
+     (setq button-end from)
     ;; Specify button, and insert value.
     (and button-begin button-end
@ -65,7 +67,8 @@
     (widget-put widget :to to)))
  (widget-clear-undo))
-(defun sclang-widget-button-action (widget event)
+(defun sclang-widget-button-action (widget _event)
  "Set button action for WIDGET."
  (widget-value-set widget
                    (if (>= (widget-get widget :value) (1- (length (widget-get widget :states))))
                        0
@ -103,7 +106,7 @@
   (let ((from (point))
         (inhibit-redisplay t)
         button-begin button-end)
-     (setq button-begin (point))
+     (setq button-begin from)
     (insert (widget-get-indirect widget :button-prefix))
     (insert-char ?- (widget-get widget :size))
@ -125,6 +128,7 @@
  (widget-clear-undo))
 (defun sclang-widget-slider-value-set (widget value)
  "Set slider WIDGET to VALUE."
  (save-excursion
    (let ((inhibit-read-only t))
      (goto-char (widget-get widget :from))
@ -145,6 +149,7 @@
  :dynargs #'sclang-widget-class-tree-dynargs)
 (defun sclang-widget-class-tree-dynargs (widget)
  "Class tree WIDGET."
  (sclang-eval-sync (sclang-format "EmacsClassTree.dynargs(%o)"
                                   (widget-get widget :tag))))
@ -161,5 +166,7 @@
   (list (sclang-read-symbol "Class: " "Object" #'sclang-class-name-p)))
  (sclang-eval-string (format "EmacsClassBrowser(%s)" class-name)))
 (provide 'sclang-widgets)
 ;;; sclang-widgets.el ends here
--- a/el/sclang.el
+++ b/el/sclang.el
@ -1,8 +1,15 @@
-;;; sclang.el --- IDE for working with the SuperCollider language
+;;; sclang.el --- IDE for working with SuperCollider -*- coding: utf-8; lexical-binding: t -*-
 ;; Copyright 2003 stefan kersten <steve@k-hornz.de>
 ;; Version: 1.0.0
 ;; URL: https://github.com/supercollider/scel
 ;;
 ;; Copyright 2003 stefan kersten <steve@k-hornz.de>
 ;;
 ;; Author: stefan kersten
 ;; Keywords: supercollider, multimedia, languages, tools
 ;; Version: 1.1.0
 ;; Package-Requires: ((emacs "27.1") (w3m "0.0"))
 ;; URL: https://github.com/supercollider/scel
 ;;; License:
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
 ;; published by the Free Software Foundation; either version 2 of the
@ -24,8 +31,19 @@
 ;; In order to be useful you need to install SuperCollider and the
 ;; sc-el Quark.  See the README or https://github.com/supercollider/scel
 ;; for more information.
 ;;
 ;; Recent versions of w3m use tab-line which is only available after 27.1
 ;; However sclang should work on Emacs 26.3 to 27.1 without the help browser.
 ;;; Credits:
 ;;
 ;; stefan kersten <steve@k-hornz.de>
 ;; and everyone in...
 ;;        git shortlog -s | sort -r | cut -c8-
 ;;; Code:
 (defgroup sclang nil
  "IDE for working with the SuperCollider language."
  :group 'languages)
@ -43,7 +61,7 @@
  :group 'sclang)
 (defgroup sclang-programs nil
-  "Paths to programs used by sclang-mode."
+  "Paths to programs used by `sclang-mode'."
  :group 'sclang-interface)
 (defgroup sclang-options nil