search

lokedhs / gnu-apl-mode

GNU APL mode for Emacs
GNU General Public License v3.0
94 stars 18 forks source link

concat problem #4

Closed jeromebaum closed 10 years ago

jeromebaum commented 10 years ago

I get the following error message trying to run gnu-apl-mode:

Wrong type argument: integer-or-marker-p, (concat prefix s)
jeromebaum commented 10 years ago 
  read-kbd-macro((concat prefix s))
  #[(keys) "\301!\207" [keys read-kbd-macro] 2 1648419]((concat prefix s))
  (kbd (concat prefix s))
  (define-key map (kbd (concat prefix s)) (gnu-apl--make-key-command-sym (car command)))
  (let ((s (car --cl-dolist-temp--))) (define-key map (kbd (concat prefix s)) (gnu-apl--make-key-command-sym (car command))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (while --cl-dolist-temp-- (let ((s (car --cl-dolist-temp--))) (define-key map (kbd (concat prefix s)) (gnu-apl--make-key-command-sym (car command))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))))
  (let ((--cl-dolist-temp-- (if (listp key-sequence) key-sequence (list key-sequence)))) (while --cl-dolist-temp-- (let ((s (car --cl-dolist-temp--))) (define-key map (kbd (concat prefix s)) (gnu-apl--make-key-command-sym (car command))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))))
  (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- (if (listp key-sequence) key-sequence (list key-sequence)))) (while --cl-dolist-temp-- (let ((s (car --cl-dolist-temp--))) (define-key map (kbd (concat prefix s)) (gnu-apl--make-key-command-sym (car command))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))))))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- (if (listp key-sequence) key-sequence (list key-sequence)))) (while --cl-dolist-temp-- (let ((s (car --cl-dolist-temp--))) (define-key map (kbd (concat prefix s)) (gnu-apl--make-key-command-sym (car command))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))))))
  (block nil (let ((--cl-dolist-temp-- (if (listp key-sequence) key-sequence (list key-sequence)))) (while --cl-dolist-temp-- (let ((s (car --cl-dolist-temp--))) (define-key map (kbd (concat prefix s)) (gnu-apl--make-key-command-sym (car command))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))))))
  (dolist (s (if (listp key-sequence) key-sequence (list key-sequence))) (define-key map (kbd (concat prefix s)) (gnu-apl--make-key-command-sym (car command))))
  (let ((key-sequence (caddr command))) (dolist (s (if (listp key-sequence) key-sequence (list key-sequence))) (define-key map (kbd (concat prefix s)) (gnu-apl--make-key-command-sym (car command)))) (define-key map (kbd "C-c C-k") (quote gnu-apl-show-keyboard)) (define-key map (kbd "C-c C-h") (quote gnu-apl-show-help-for-symbol-point)) (define-key map (kbd "C-c C-a") (quote gnu-apl-apropos-symbol)) (define-key map [menu-bar gnu-apl] (cons "APL" (make-sparse-keymap "APL"))) (define-key map [menu-bar gnu-apl toggle-keyboard] (quote ("Toggle keyboard" . gnu-apl-show-keyboard))) (define-key map [menu-bar gnu-apl show-help-for-symbol] (quote ("Documentation for symbol" . gnu-apl-show-help-for-symbol))) (define-key map [menu-bar gnu-apl apropos-symbol] (quote ("Search symbols" . gnu-apl-apropos-symbol))))
  (let ((command (car --cl-dolist-temp--))) (let ((key-sequence (caddr command))) (dolist (s (if (listp key-sequence) key-sequence (list key-sequence))) (define-key map (kbd (concat prefix s)) (gnu-apl--make-key-command-sym (car command)))) (define-key map (kbd "C-c C-k") (quote gnu-apl-show-keyboard)) (define-key map (kbd "C-c C-h") (quote gnu-apl-show-help-for-symbol-point)) (define-key map (kbd "C-c C-a") (quote gnu-apl-apropos-symbol)) (define-key map [menu-bar gnu-apl] (cons "APL" (make-sparse-keymap "APL"))) (define-key map [menu-bar gnu-apl toggle-keyboard] (quote ("Toggle keyboard" . gnu-apl-show-keyboard))) (define-key map [menu-bar gnu-apl show-help-for-symbol] (quote ("Documentation for symbol" . gnu-apl-show-help-for-symbol))) (define-key map [menu-bar gnu-apl apropos-symbol] (quote ("Search symbols" . gnu-apl-apropos-symbol)))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (while --cl-dolist-temp-- (let ((command (car --cl-dolist-temp--))) (let ((key-sequence (caddr command))) (dolist (s (if (listp key-sequence) key-sequence (list key-sequence))) (define-key map (kbd (concat prefix s)) (gnu-apl--make-key-command-sym (car command)))) (define-key map (kbd "C-c C-k") (quote gnu-apl-show-keyboard)) (define-key map (kbd "C-c C-h") (quote gnu-apl-show-help-for-symbol-point)) (define-key map (kbd "C-c C-a") (quote gnu-apl-apropos-symbol)) (define-key map [menu-bar gnu-apl] (cons "APL" (make-sparse-keymap "APL"))) (define-key map [menu-bar gnu-apl toggle-keyboard] (quote ("Toggle keyboard" . gnu-apl-show-keyboard))) (define-key map [menu-bar gnu-apl show-help-for-symbol] (quote ("Documentation for symbol" . gnu-apl-show-help-for-symbol))) (define-key map [menu-bar gnu-apl apropos-symbol] (quote ("Search symbols" . gnu-apl-apropos-symbol)))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))))
  (let ((--cl-dolist-temp-- gnu-apl--symbols)) (while --cl-dolist-temp-- (let ((command (car --cl-dolist-temp--))) (let ((key-sequence (caddr command))) (dolist (s (if (listp key-sequence) key-sequence (list key-sequence))) (define-key map (kbd (concat prefix s)) (gnu-apl--make-key-command-sym (car command)))) (define-key map (kbd "C-c C-k") (quote gnu-apl-show-keyboard)) (define-key map (kbd "C-c C-h") (quote gnu-apl-show-help-for-symbol-point)) (define-key map (kbd "C-c C-a") (quote gnu-apl-apropos-symbol)) (define-key map [menu-bar gnu-apl] (cons "APL" (make-sparse-keymap "APL"))) (define-key map [menu-bar gnu-apl toggle-keyboard] (quote ("Toggle keyboard" . gnu-apl-show-keyboard))) (define-key map [menu-bar gnu-apl show-help-for-symbol] (quote ("Documentation for symbol" . gnu-apl-show-help-for-symbol))) (define-key map [menu-bar gnu-apl apropos-symbol] (quote ("Search symbols" . gnu-apl-apropos-symbol)))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))))
  (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- gnu-apl--symbols)) (while --cl-dolist-temp-- (let ((command (car --cl-dolist-temp--))) (let ((key-sequence (caddr command))) (dolist (s (if ... key-sequence ...)) (define-key map (kbd ...) (gnu-apl--make-key-command-sym ...))) (define-key map (kbd "C-c C-k") (quote gnu-apl-show-keyboard)) (define-key map (kbd "C-c C-h") (quote gnu-apl-show-help-for-symbol-point)) (define-key map (kbd "C-c C-a") (quote gnu-apl-apropos-symbol)) (define-key map [menu-bar gnu-apl] (cons "APL" (make-sparse-keymap "APL"))) (define-key map [menu-bar gnu-apl toggle-keyboard] (quote ("Toggle keyboard" . gnu-apl-show-keyboard))) (define-key map [menu-bar gnu-apl show-help-for-symbol] (quote ("Documentation for symbol" . gnu-apl-show-help-for-symbol))) (define-key map [menu-bar gnu-apl apropos-symbol] (quote ("Search symbols" . gnu-apl-apropos-symbol)))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))))))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- gnu-apl--symbols)) (while --cl-dolist-temp-- (let ((command (car --cl-dolist-temp--))) (let ((key-sequence ...)) (dolist (s ...) (define-key map ... ...)) (define-key map (kbd "C-c C-k") (quote gnu-apl-show-keyboard)) (define-key map (kbd "C-c C-h") (quote gnu-apl-show-help-for-symbol-point)) (define-key map (kbd "C-c C-a") (quote gnu-apl-apropos-symbol)) (define-key map [menu-bar gnu-apl] (cons "APL" ...)) (define-key map [menu-bar gnu-apl toggle-keyboard] (quote ...)) (define-key map [menu-bar gnu-apl show-help-for-symbol] (quote ...)) (define-key map [menu-bar gnu-apl apropos-symbol] (quote ...))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))))))
  (block nil (let ((--cl-dolist-temp-- gnu-apl--symbols)) (while --cl-dolist-temp-- (let ((command (car --cl-dolist-temp--))) (let ((key-sequence (caddr command))) (dolist (s (if ... key-sequence ...)) (define-key map (kbd ...) (gnu-apl--make-key-command-sym ...))) (define-key map (kbd "C-c C-k") (quote gnu-apl-show-keyboard)) (define-key map (kbd "C-c C-h") (quote gnu-apl-show-help-for-symbol-point)) (define-key map (kbd "C-c C-a") (quote gnu-apl-apropos-symbol)) (define-key map [menu-bar gnu-apl] (cons "APL" (make-sparse-keymap "APL"))) (define-key map [menu-bar gnu-apl toggle-keyboard] (quote ("Toggle keyboard" . gnu-apl-show-keyboard))) (define-key map [menu-bar gnu-apl show-help-for-symbol] (quote ("Documentation for symbol" . gnu-apl-show-help-for-symbol))) (define-key map [menu-bar gnu-apl apropos-symbol] (quote ("Search symbols" . gnu-apl-apropos-symbol)))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))))))
  (dolist (command gnu-apl--symbols) (let ((key-sequence (caddr command))) (dolist (s (if (listp key-sequence) key-sequence (list key-sequence))) (define-key map (kbd (concat prefix s)) (gnu-apl--make-key-command-sym (car command)))) (define-key map (kbd "C-c C-k") (quote gnu-apl-show-keyboard)) (define-key map (kbd "C-c C-h") (quote gnu-apl-show-help-for-symbol-point)) (define-key map (kbd "C-c C-a") (quote gnu-apl-apropos-symbol)) (define-key map [menu-bar gnu-apl] (cons "APL" (make-sparse-keymap "APL"))) (define-key map [menu-bar gnu-apl toggle-keyboard] (quote ("Toggle keyboard" . gnu-apl-show-keyboard))) (define-key map [menu-bar gnu-apl show-help-for-symbol] (quote ("Documentation for symbol" . gnu-apl-show-help-for-symbol))) (define-key map [menu-bar gnu-apl apropos-symbol] (quote ("Search symbols" . gnu-apl-apropos-symbol)))))
  (let ((map (make-sparse-keymap))) (dolist (command gnu-apl--symbols) (let ((key-sequence (caddr command))) (dolist (s (if (listp key-sequence) key-sequence (list key-sequence))) (define-key map (kbd (concat prefix s)) (gnu-apl--make-key-command-sym (car command)))) (define-key map (kbd "C-c C-k") (quote gnu-apl-show-keyboard)) (define-key map (kbd "C-c C-h") (quote gnu-apl-show-help-for-symbol-point)) (define-key map (kbd "C-c C-a") (quote gnu-apl-apropos-symbol)) (define-key map [menu-bar gnu-apl] (cons "APL" (make-sparse-keymap "APL"))) (define-key map [menu-bar gnu-apl toggle-keyboard] (quote ("Toggle keyboard" . gnu-apl-show-keyboard))) (define-key map [menu-bar gnu-apl show-help-for-symbol] (quote ("Documentation for symbol" . gnu-apl-show-help-for-symbol))) (define-key map [menu-bar gnu-apl apropos-symbol] (quote ("Search symbols" . gnu-apl-apropos-symbol))))) map)
  gnu-apl--make-mode-map("s-")
  (let ((map (gnu-apl--make-mode-map "s-"))) (define-key map (kbd "C-c r") (quote gnu-apl-interactive-send-region)) (define-key map (kbd "C-c C-c") (quote gnu-apl-interactive-send-current-function)) map)
  (defvar gnu-apl-mode-map (let ((map (gnu-apl--make-mode-map "s-"))) (define-key map (kbd "C-c r") (quote gnu-apl-interactive-send-region)) (define-key map (kbd "C-c C-c") (quote gnu-apl-interactive-send-current-function)) map))
  eval-buffer(#<buffer  *load*> nil ".../gnu-apl-mode.el" nil t)  ; Reading at buffer position 9905
  load-with-code-conversion(".../gnu-apl-mode.el" ".../gnu-apl-mode.el" nil t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)
jeromebaum commented 10 years ago

kbd is a macro so using a hack (eval(kbd ,variable))` resolves this.

lokedhs commented 10 years ago

kbd was a macro. In 24.4 it's a function, and there are plenty of other features that does not work in pre-24.4.

lokedhs commented 10 years ago

I've implemented a workaround for kbd now. I haven't tested it though.