all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* what-char
@ 2022-02-05  8:13 Emanuel Berg via Users list for the GNU Emacs text editor
  2022-02-05  8:37 ` what-char Emanuel Berg via Users list for the GNU Emacs text editor
  2022-02-05 17:24 ` [External] : what-char Drew Adams
  0 siblings, 2 replies; 4+ messages in thread
From: Emanuel Berg via Users list for the GNU Emacs text editor @ 2022-02-05  8:13 UTC (permalink / raw)
  To: help-gnu-emacs; +Cc: emacs-devel

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




^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: what-char
  2022-02-05  8:13 what-char Emanuel Berg via Users list for the GNU Emacs text editor
@ 2022-02-05  8:37 ` Emanuel Berg via Users list for the GNU Emacs text editor
  2022-02-05 17:24 ` [External] : what-char Drew Adams
  1 sibling, 0 replies; 4+ messages in thread
From: Emanuel Berg via Users list for the GNU Emacs text editor @ 2022-02-05  8:37 UTC (permalink / raw)
  To: help-gnu-emacs; +Cc: emacs-devel

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




^ permalink raw reply	[flat|nested] 4+ messages in thread

* RE: [External] : what-char
  2022-02-05  8:13 what-char Emanuel Berg via Users list for the GNU Emacs text editor
  2022-02-05  8:37 ` what-char Emanuel Berg via Users list for the GNU Emacs text editor
@ 2022-02-05 17:24 ` Drew Adams
  2022-02-06  4:16   ` Richard Stallman
  1 sibling, 1 reply; 4+ messages in thread
From: Drew Adams @ 2022-02-05 17:24 UTC (permalink / raw)
  To: Emanuel Berg
  Cc: 'Help-Gnu-Emacs (help-gnu-emacs@gnu.org)',
	emacs-devel@gnu.org

[-- 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 --]

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: [External] : what-char
  2022-02-05 17:24 ` [External] : what-char Drew Adams
@ 2022-02-06  4:16   ` Richard Stallman
  0 siblings, 0 replies; 4+ messages in thread
From: Richard Stallman @ 2022-02-06  4:16 UTC (permalink / raw)
  To: Drew Adams; +Cc: help-gnu-emacs, moasenwood, emacs-devel

[[[ 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)





^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2022-02-06  4:16 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2022-02-05  8:13 what-char Emanuel Berg via Users list for the GNU Emacs text editor
2022-02-05  8:37 ` what-char Emanuel Berg via Users list for the GNU Emacs text editor
2022-02-05 17:24 ` [External] : what-char Drew Adams
2022-02-06  4:16   ` Richard Stallman

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.