Re: Unhelpful text in C-h v search-default-mode

[Emanuel Berg <incal@dataswamp.org>]

Juri Linkov wrote:

>>> Incidentally, why do we need the long string of hex digits
>>> in the subr names F616e....6461_anonymous_lambda_109?
>>> These are simply the ASCII codes for "anonymous_lambda"
>>
>> Impressive that you just saw that!
>>
>> I had to spend a lot of time before I even realized the
>> initial "F" is for function, i.e. not part of the
>> hex string.
>
> Interesting. I didn't know that
> #<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_109>
> contains an "encrypted" message

Yeah, it is amazing you can still have this much fun with Emacs
after all these years using it every day!

> (replace-regexp-in-string ".."
>  (lambda (hex) (string (string-to-number hex 16)))
>  "616e6f6e796d6f75732d6c616d626461")
> => "anonymous-lambda"

Right, even tho I really appreciate the way `cl-loop' solved
the translation in my previous post I have to give it to you,
your solution is cleaner.

It is closer in style to this shell script and Unix tool
parsing which does the same thing:

$ str=$(printf '616e6f6e796d6f75732d6c616d626461' | sed 's,..,\\x&,g')
$ printf '%b\n' "$str"
anonymous-lambda

Anyway I added it to my hex.el file with a reference to your
post on the gnu.emacs.devel archives, see URL below.

;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/hex.el
;;
;; original code:
;;   https://stackoverflow.com/a/12007656
;;   https://lists.gnu.org/archive/html/emacs-devel/2023-12/msg00947.html

(require 'cl-lib)

(defun decode-hex-2 (str)
  (replace-regexp-in-string ".."
    (lambda (hex) (string (string-to-number hex 16)))
    str) )

;; (decode-hex-2 "616e6f6e796d6f75732d6c616d626461")

(defun decode-hex (str)
  (apply #'concat
    (cl-loop
      for i from 0 to (1- (/ (length str) 2))
      for hex-byte = (substring str (* 2 i) (* 2 (1+ i)))
      collect (format "%c" (string-to-number hex-byte 16)) )))

;; (decode-hex "616e6f6e796d6f75732d6c616d626461")

(provide 'hex)

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