Re: Quoted function in `define-key'

[Stefan Monnier]

>>>>> "Narendra" == Narendra Joshi <narendraj9@gmail.com> writes:

> The following piece of code is confusing me. It is from `rinari-minor-mode'.

> (dolist (el (append (mapcar
>                      (lambda (el)
>                        (cons (concat "f" (second el))
>                              (read (format "'rinari-find-%S"
>                                            (first el)))))
>                      rinari-jump-schema)
>                     rinari-minor-mode-keybindings))
>   (eval `(define-key rinari-prefix-map ,(car el) ,(cdr el))))


> If I replace the last expression with:

> (define-key rinari-prefix-map (car el) (cdr el))

> why does it fail?

> (cdr el) is (quote function-name) which is exactly the same as
> 'function-name.

"Exactly the same"?  Well, clearly not, since it behaves differently:

    (eval (cdr el))         =>   (quote function-name)
    (eval 'function-name)   =>   function-name

A good first rule is that if you're using `eval` it means you're not really
doing it right:

    (dolist (el (append (mapcar
                         (lambda (el)
                           (cons (vconcat [?\f] (nth 1 el))
                                 (intern "rinari-find-%s" (nth 0 el))))
                         rinari-jump-schema)
                        rinari-minor-mode-keybindings))
      (define-key rinari-prefix-map (car el) (cdr el)))


-- Stefan