From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Emanuel Berg via Users list for the GNU Emacs text editor Newsgroups: gmane.emacs.help,gmane.emacs.devel Subject: what-char Date: Sat, 05 Feb 2022 09:13:39 +0100 Message-ID: <871r0h91e4.fsf@zoho.eu> Reply-To: Emanuel Berg Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="35442"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux) Cc: emacs-devel@gnu.org To: help-gnu-emacs@gnu.org Cancel-Lock: sha1:Dv/Zk8AwEPwe7ANnGwxtei3B6H0= Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Sat Feb 05 09:17:04 2022 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1nGGFj-0008yl-Vf for geh-help-gnu-emacs@m.gmane-mx.org; Sat, 05 Feb 2022 09:17:03 +0100 Original-Received: from localhost ([::1]:44848 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nGGFi-0003DY-EQ for geh-help-gnu-emacs@m.gmane-mx.org; Sat, 05 Feb 2022 03:17:02 -0500 Original-Received: from eggs.gnu.org ([209.51.188.92]:57272) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nGGCj-0003D9-Ts for help-gnu-emacs@gnu.org; Sat, 05 Feb 2022 03:13:58 -0500 Original-Received: from ciao.gmane.io ([116.202.254.214]:58550) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nGGCg-0002WD-8z for help-gnu-emacs@gnu.org; Sat, 05 Feb 2022 03:13:55 -0500 Original-Received: from list by ciao.gmane.io with local (Exim 4.92) (envelope-from ) id 1nGGCa-00055I-2i for help-gnu-emacs@gnu.org; Sat, 05 Feb 2022 09:13:48 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: help-gnu-emacs@gnu.org Original-Followup-To: gmane.emacs.help Mail-Copies-To: never Received-SPF: pass client-ip=116.202.254.214; envelope-from=geh-help-gnu-emacs@m.gmane-mx.org; helo=ciao.gmane.io X-Spam_score_int: -16 X-Spam_score: -1.7 X-Spam_bar: - X-Spam_report: (-1.7 / 5.0 requ) BAYES_00=-1.9, HEADER_FROM_DIFFERENT_DOMAINS=0.249, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.io gmane.emacs.help:135773 gmane.emacs.devel:285889 Archived-At: 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