Re: .emacs poser

[Kevin Rodgers]

On 12/16/13 5:01 PM, B. T. Raven wrote:
> In my emacs I have these global-set-key forms:
>
> ....
>
> (global-set-key "\C-cg" (lambda () (interactive) (insert  ?° )))
> (global-set-key "\C-ch" (lambda () (interactive)  (insert  ?·)))
> (global-set-key "\C-c-" (lambda () (interactive)  (insert  ?— )))
> (global-set-key "\C-cI" (lambda () (interactive)  (insert  ?‽ ))) ;; ;;
> ;; capital eye interrobang
> (global-set-key "\C-cL" (lambda () (interactive)  (insert  ?£ )))
> (global-set-key "\C-cm" (lambda () (interactive)  (insert  ?ˉ)))
> ;;(global-set-key "\C-cM" (lambda () (interactive)  (insert  ?̄✠)))
> (global-set-key "\C-cp" (lambda () (interactive) (insert  ?¶ )))
> (global-set-key "\C-cr" (lambda () (interactive)  (insert  ?® )))
> (global-set-key "\C-cs" (lambda () (interactive) (insert  ?§ )))
> (global-set-key "\C-ci" (lambda() (interactive) (insert
> (format-time-string "%a %Y .....
>
> These and many others work fine (in w32 native v. 23.3) but any attempt
> to evaluate "\C-cM" (capital M) truncates the rest of the .emacs and
> wakes the Debugger:
>
> Debugger entered--Lisp error: (invalid-read-syntax "?")
>    read(#<buffer .emacs>)
>    preceding-sexp()
>    eval-last-sexp-1(nil)
>    eval-last-sexp(nil)
>    call-interactively(eval-last-sexp nil nil)
>    recursive-edit()
>    byte-code("\306        @\307=\203! ......
>
> the glyph shown is the Maltese cross but any character after the ? fails
> to work in the same way. Other capitals are distinguished, just not
> upper case M.
>
> Does any of you have any idea whats going on here. With just that line
> commented out the .emacs loads with no problem.

There is some other character between "?" and "✠" on that line.

BTW, instead of including the character literally, you could use a
representation that doesn't rely the file encoding (and leave the literal
character in a comment):

(global-set-key "\C-cM" (lambda () (interactive)  (insert ?\x2720))) ; U+2720 = 
✠

or put the literal character in a doc string that you can access with
`C-h k' (M-x describe-key) or `C-h d' (M-x apropos-documentation):

(global-set-key "\C-cM" (lambda ()
                          "Insert U+2720 = \"✠\"."
                          (interactive)
                          (insert ?\x2720)))

--
Kevin Rodgers
Denver, Colorado, USA