Emacs Lisp

Emacs Lisp Functions

Emacs Lisp functions as presented here are conceptual initiative for readers to learn and get ideas to program themselves.

Excellent piece of programming language is the GNU Emacs editor itself. Yes, it is not just another editor. It is a true programming language that may do much for your life and business.

It may be used for plethora of real world applications. I am myself using GNU Emacs mostly for communication. Writing emails is one application of GNU Emacs. But did you know that it may be used to send SMS, to send faxes, prepare letters, prepare business contracts, to prepare reports of all kinds, to obtain your geographical location by reading data from the mobile phone, to follow up on your business cycles, to remind your clients on unpaid invoices, to provide accounting tools and reports…

And it can even manage your windows clean…

Kill to signature

This is one of mostly used functions on my side. Quoting emails and deleting the text not necessary is something I repeat so many times per day. This one have been stolen from function message-kill-to-signature and adapted from my needs. I do not use only message mode for writing emails. And it is bound globally to s-0 or hyperkey and zero.

(defun kill-to-signature (arg)
  "Kill all text up to the signature that begins with -- ."
  (interactive "P")
  ;; (rcd/emacs-lisp-log "email")
      (let ((point (point)))
    (narrow-to-region point (point-max))
    (goto-char (point-min))
    (if (re-search-forward "^-- $" nil t)
        (forward-line 1)
      (goto-char (point-max)))
    (unless (eobp)
      (if (and arg (numberp arg))
          (forward-line (- -1 arg))
        (end-of-line -1)))
    (unless (= point (point))
      (kill-region point (point))
      (unless (bolp)
        (insert "\n")))))))
(global-set-key (kbd "s-0") 'kill-to-signature)     

Leave Your Comment or Contact GNU.Support

Contact GNU.Support now. There is a simple rule at GNU.Support: if we can help you, we do, whenever and wherever necessary, and it's the way we've been doing business since 2002, and the only way we know

Full name: