Skip to content

unbind-key cannot handle remap #827

Open
@seagle0128

Description

@seagle0128

For example:

(unbind-key ([remap xref-find-definitions]) go-mode-map)

Return errors:

Debugger entered--Lisp error: (invalid-function [remap xref-find-definitions])
  ([remap xref-find-definitions])
  (let* ((name ([remap xref-find-definitions])) (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'go-mode-map)) (binding (lookup-key (or go-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list nil (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or go-mode-map global-map) key nil))
  (progn (let* ((name ([remap xref-find-definitions])) (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'go-mode-map)) (binding (lookup-key (or go-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list nil (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or go-mode-map global-map) key nil)) (setq personal-keybindings (cl-delete-if #'(lambda (k) (and (consp (car k)) (string= (car ...) (...)) (eq (cdr ...) 'go-mode-map))) personal-keybindings)))
  (progn (progn (let* ((name ([remap xref-find-definitions])) (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'go-mode-map)) (binding (lookup-key (or go-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list nil (if ... nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or go-mode-map global-map) key nil)) (setq personal-keybindings (cl-delete-if #'(lambda (k) (and (consp ...) (string= ... ...) (eq ... ...))) personal-keybindings))))
  eval((progn (progn (let* ((name ([remap xref-find-definitions])) (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if ... name ...) 'go-mode-map)) (binding (lookup-key (or go-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list nil ...))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or go-mode-map global-map) key nil)) (setq personal-keybindings (cl-delete-if #'(lambda (k) (and ... ... ...)) personal-keybindings)))) t)
  elisp--eval-last-sexp(nil)
  #f(compiled-function (eval-last-sexp-arg-internal) "Evaluate sexp before point; print value in the echo area.\nInteractively, with a non `-' prefix argument, print output into\ncurrent buffer.\n\nNormally, this function truncates long output according to the\nvalue of the variables `eval-expression-print-length' and\n`eval-expression-print-level'.  With a prefix argument of zero,\nhowever, there is no such truncation.\nInteger values are printed in several formats (decimal, octal,\nand hexadecimal).  When the prefix argument is -1 or the value\ndoesn't exceed `eval-expression-print-maximum-character', an\ninteger value is also printed as a character of that codepoint.\n\nIf `eval-expression-debug-on-error' is non-nil, which is the default,\nthis command arranges for all errors to enter the debugger." (interactive "P") #<bytecode -0xfa514315a573e0d>)(nil)
  apply(#f(compiled-function (eval-last-sexp-arg-internal) "Evaluate sexp before point; print value in the echo area.\nInteractively, with a non `-' prefix argument, print output into\ncurrent buffer.\n\nNormally, this function truncates long output according to the\nvalue of the variables `eval-expression-print-length' and\n`eval-expression-print-level'.  With a prefix argument of zero,\nhowever, there is no such truncation.\nInteger values are printed in several formats (decimal, octal,\nand hexadecimal).  When the prefix argument is -1 or the value\ndoesn't exceed `eval-expression-print-maximum-character', an\ninteger value is also printed as a character of that codepoint.\n\nIf `eval-expression-debug-on-error' is non-nil, which is the default,\nthis command arranges for all errors to enter the debugger." (interactive "P") #<bytecode -0xfa514315a573e0d>) nil)
  eval-last-sexp(nil)
  funcall-interactively(eval-last-sexp nil)
  call-interactively(eval-last-sexp nil nil)
  #f(compiled-function (cmd &optional record-flag keys special) "Execute CMD as an editor command.\nCMD must be a symbol that satisfies the `commandp' predicate.\nOptional second arg RECORD-FLAG non-nil\nmeans unconditionally put this command in the variable `command-history'.\nOtherwise, that is done only if an arg is read using the minibuffer.\nThe argument KEYS specifies the value to use instead of (this-command-keys)\nwhen reading the arguments; if it is nil, (this-command-keys) is used.\nThe argument SPECIAL, if non-nil, means that this command is executing\na special event, so ignore the prefix argument and don't clear it." #<bytecode 0x1aca69de5b3cc60f>)(eval-last-sexp nil nil nil)
  ad-Advice-command-execute(#f(compiled-function (cmd &optional record-flag keys special) "Execute CMD as an editor command.\nCMD must be a symbol that satisfies the `commandp' predicate.\nOptional second arg RECORD-FLAG non-nil\nmeans unconditionally put this command in the variable `command-history'.\nOtherwise, that is done only if an arg is read using the minibuffer.\nThe argument KEYS specifies the value to use instead of (this-command-keys)\nwhen reading the arguments; if it is nil, (this-command-keys) is used.\nThe argument SPECIAL, if non-nil, means that this command is executing\na special event, so ignore the prefix argument and don't clear it." #<bytecode 0x1aca69de5b3cc60f>) eval-last-sexp)
  apply(ad-Advice-command-execute #f(compiled-function (cmd &optional record-flag keys special) "Execute CMD as an editor command.\nCMD must be a symbol that satisfies the `commandp' predicate.\nOptional second arg RECORD-FLAG non-nil\nmeans unconditionally put this command in the variable `command-history'.\nOtherwise, that is done only if an arg is read using the minibuffer.\nThe argument KEYS specifies the value to use instead of (this-command-keys)\nwhen reading the arguments; if it is nil, (this-command-keys) is used.\nThe argument SPECIAL, if non-nil, means that this command is executing\na special event, so ignore the prefix argument and don't clear it." #<bytecode 0x1aca69de5b3cc60f>) eval-last-sexp)
  command-execute(eval-last-sexp)

Metadata

Metadata

Assignees

No one assigned

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions