;;; -*- lexical-binding: t -*-
;;;
;;; this file:
;;;   http://user.it.uu.se/~embe8573/emacs-init/my-misc.el
;;;   https://dataswamp.org/~incal/emacs-init/my-misc.el

(defalias 'ps #'list-processes)

(defun insert-last-message ()
  (interactive)
  (insert
   (with-current-buffer (messages-buffer)
     (let ((end   (goto-char (point-max)))
           (start (re-search-backward "^[[:space:]]*[[:graph:]]+")) )
       (buffer-substring start end) ))))
(defalias 'ilm #'insert-last-message)

(defun echo-point ()
  (interactive)
  (message "%d" (point)) )
(defalias 'p #'echo-point)

(defalias 'what-char #'describe-char)