editfns.el

来自「A framework written in Java for implemen」· EL 代码 · 共 54 行

(defun point-marker (&optional share (buffer (current-buffer)))
  (invoke buffer 'getPointMarker share))

(defun bolp (&optional (buffer (current-buffer)))
  (invoke (point-marker t buffer) 'isBeginningOfLine))

(defun eolp (&optional buffer)
  (invoke (point-marker t buffer) 'isEndOfLine))

(defun forward-char (&optional (count 1) (buffer (current-buffer)))
  (invoke (decode-buffer buffer) 'forwardChar count))

(defun backward-char (&optional (count 1) buffer)
  (invoke (decode-buffer buffer) 'backwardChar count))

(defun pos-visible-in-window-p (&optional pos window partially)
  t) ;; FIXME

(defun interactive-p () nil) ;;; FIXME

#|
(defun region-beginning (&optional buffer)
  (region-limit 1 (decode-buffer buffer)))

(defun region-end (&optional buffer)
  (region-limit 0 (decode-buffer buffer)))
|#

;;; FIXME
(defun mark-marker (&optional inactive-p (buffer (current-buffer)))
  (invoke buffer 'getMarkMarker inactive-p))

(defvar executing-kbd-macro nil)
(defvar zmacs-regions t)

(defvar last-command nil) ;;; FIXME

(defvar selective-display nil)

(defun barf-if-buffer-read-only (&optional buffer start end)
  nil) ;; FIXME

(defun execute-extended-command (prefix-arg)
  (interactive "P")
  (call-interactively (string->symbol (read-dialog "Command name:"))))

(defun lisp-interaction ()
  (interactive)
  (let ((buffer (get-buffer-create "*lisp-interaction*")))
    (invoke-static 'gnu.jemacs.buffer.ReplMode 'make buffer 'elisp)
    (use-local-map repl-map buffer)
    (switch-to-buffer buffer)
    buffer))