Commit 53803855 authored by Troels Henriksen's avatar Troels Henriksen

Implement `frame-current-buffer' and define and export `current-mark'.

parent e6dad5c5
......@@ -202,7 +202,11 @@
"Return the current panes point."
(point (current-window)))
(defmethod current-buffer ((application-frame climacs))
(defun current-mark ()
"Return the current panes mark."
(mark (current-window)))
(defmethod frame-current-buffer ((application-frame climacs))
"Return the current buffer."
(buffer (car (windows application-frame))))
......
......@@ -334,6 +334,7 @@
#:current-point
#:current-buffer
#:current-point
#:current-mark
#:point
#:syntax
#:mark
......
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