 (defun error-message (msg)
     (message (concat "Error: " msg)))
 
-(setq fast-numbers '(
+(defconst fast-numbers '(
     (?0 0) (?1 1) (?2 2) (?3 3) (?4 4) (?5 5) (?6 6) (?7 7) (?8 8) (?9 9)
     (?z 0) (?a 1) (?s 2) (?d 3) (?f 4) (?g 5) (?h 6) (?j 7) (?k 8) (?l 9) (?\; 10)))
 

                    (setq visible-cursor t)
                    ;; Try to move to the corresponding line in the previous view.
                    ;; This is not always possible and not always helpful, but it is often both.
                    (beginning-of-line smsn-current-line)
                    (setq buffer-read-only (not editable))
                    ;; always include line numbers in views
                    (linum-mode t)


(defun get-atom (id)
    (if id
        (if brain-current-atoms-by-id
            (gethash id brain-current-atoms-by-id)
            nil)
        nil))

