erc-element.el

[Emanuel Berg]

;;; -*- lexical-binding: t -*-
;;;
;;; this file:
;;;   https://dataswamp.org/~incal/emacs-init/erc/erc-element.el

(require 'erc)
(require 'erc-button)

(defun erc-element-next (&optional prev)
  (interactive "P")
  (condition-case nil
      (if prev
          (erc-button-previous)
        (erc-button-next) )
    (error (progn
             (goto-char (point-max))
             (when prev
               (erc-bol) )))))

(defun erc-element-prev ()
  (interactive)
  (let ((beg (point)))
    (erc-element-next t)
    (when (= (point) beg)
      (forward-line 0)
      (forward-char -1)
      (erc-element-next t) )))

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