what-char

what-char

[Emanuel Berg via Users list for the GNU Emacs text editor]

New interesting code from uXu!

Have the echo area display the name and old-name (if
available) of the char at point.

Watch out for the argument pos! From Lisp, it means
position. Interactively, it means don't just echo, also kill
the data. But even from Lisp it can be omitted, and point
is used ...

If used interactively, the point number is also echoed, but
not returned or killed.

Tricky? Have no fear - "I" is here.

;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/char.el

(defun what-char (&optional pos)
  (interactive "P")
  (let*((position (or (and (numberp pos) pos)
                      (point) ))
        (kill pos)
        (char (char-after position)) )
    (when char
      (let*((name     (get-char-code-property char 'name))
            (old-name (get-char-code-property char 'old-name))
            (msg (if (and name old-name)
                     (format "%s (%s)" name old-name)
                   (or name old-name) ))
            (msg-dc (when (stringp msg) (downcase msg))) )
        (when msg-dc
          (prog1 msg-dc
            (when kill (kill-new msg-dc))
            (message "%d: %s" position msg-dc) ))))))

;; (what-char)                     ; "space"
;; (what-char (point-min))         ; "semicolon"
;; (what-char 692)                 ; "left parenthesis (opening parenthesis)"
;; C-u M-x what-char RET* then C-y ; asterisk is inserted
;; M-x what-char RET               ; 1016: line feed (lf)

-- 
underground experts united
https://dataswamp.org/~incal

Re: what-char

[Emanuel Berg via Users list for the GNU Emacs text editor]

Indeed, there are _five_ ways to invoke that function:

;; (what-char)                     ; "space"
;; (what-char 692)                 ; "left parenthesis (opening parenthesis)"
;; C-u 692 M-x what-char RET       ; same, but also killed
;; C-u M-x what-char RET* then C-y ; asterisk is yanked
;; M-x what-char RET               ; 1028: line feed (lf)

Straight Mona Lispa!

-- 
underground experts united
https://dataswamp.org/~incal

RE: [External] : what-char

[Drew Adams]

[-- Attachment #1: Type: text/plain, Size: 497 bytes --]

> Have the echo area display the name and old-name
> (if available) of the char at point.

Or see the char and its Unicode code point it in the
mode-line, always (in a single buffer or in all).

* Click mouse-1 there to see the full *Help* (what
  `describe-char' shows).

* Click mouse-2 there to set the secondary selection
  to the char.

* Click mouse-3 there to show the char enlarged in
  a tooltip (:height 400).

https://www.emacswiki.org/emacs/ModeLineCharacterInfo




[-- Attachment #2: winmail.dat --]
[-- Type: application/ms-tnef, Size: 13495 bytes --]

Re: [External] : what-char

[Richard Stallman]

[[[ To any NSA and FBI agents reading my email: please consider    ]]]
[[[ whether defending the US Constitution against all enemies,     ]]]
[[[ foreign or domestic, requires you to follow Snowden's example. ]]]

Could you please post a full self-contained description of the change
you're proposing?

-- 
Dr Richard Stallman (https://stallman.org)
Chief GNUisance of the GNU Project (https://gnu.org)
Founder, Free Software Foundation (https://fsf.org)
Internet Hall-of-Famer (https://internethalloffame.org)