Commit 6fce19f0 authored by Christer Ekholm's avatar Christer Ekholm

Removed unused function lyskom-buffer-display-message.

parent ee3dd5e5
2014-06-19 Christer Ekholm <che@chrekh.se>
* utilities.el: Removed unused function lyskom-buffer-display-message.
2014-06-17 Christer Ekholm <che@chrekh.se>
* vars.el: Removed unused function lyskom-inherited-variable.
......
......@@ -574,27 +574,6 @@ truncated. The total width will still be at most END-COLUMN."
(setq str (concat str trailer)))
str))))
(defun lyskom-buffer-display-message (string &optional buffer)
(let* ((inhibit-read-only t)
(buffer (or buffer (current-buffer)))
(window (cdr
(assoc (selected-frame)
(mapcar (lambda (x) (cons (window-frame x) x))
(get-buffer-window-list buffer))))))
(erase-buffer)
(unless window (setq window (display-buffer buffer)))
(select-window window)
(delete-other-windows window)
(insert (make-string (/ (window-height window) 3) ?\n))
(insert string)
(center-region (point-min) (point-max))
(goto-char (point-min))
(fundamental-mode)
(toggle-read-only t)))
(eval-and-compile
(lyskom-xemacs-or-gnu
(fset 'lyskom-string= (symbol-function 'string=))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment