Skip to content

Commit

Permalink
add missing defcustoms
Browse files Browse the repository at this point in the history
  • Loading branch information
Le Wang committed Oct 28, 2012
1 parent e30b31a commit 2ca3ec7
Showing 1 changed file with 15 additions and 4 deletions.
19 changes: 15 additions & 4 deletions rebox2.el
Original file line number Diff line number Diff line change
Expand Up @@ -12,9 +12,9 @@

;; Created: Mon Jan 10 22:22:32 2011 (+0800)
;; Version: 0.7
;; Last-Updated: Sun Oct 28 10:49:53 2012 (+0800)
;; Last-Updated: Sun Oct 28 15:03:39 2012 (+0800)
;; By: Le Wang
;; Update #: 456
;; Update #: 459
;; URL: https://github.com/lewang/rebox2
;; Keywords:
;; Compatibility: GNU Emacs 23.2
Expand Down Expand Up @@ -744,6 +744,16 @@ lines in the body of box."
:type 'symbol
:group 'rebox)

(defcustom rebox-end-of-line-function 'move-end-of-line
"function called by `rebox-end-of-line' when no box is found."
:type 'symbol
:group 'rebox)

(defcustom rebox-beginning-of-line-function 'move-beginning-of-line
"function called by `rebox-beginning-of-line' when no box is found."
:type 'symbol
:group 'rebox)

(defcustom rebox-yank-pop-function 'yank-pop
"function called by `rebox-yank-pop' when no box is found."
:type 'symbol
Expand Down Expand Up @@ -2316,8 +2326,9 @@ the empty regexp."
"return fallback function found"
(if rebox-mode
(let* ((rebox-mode nil)
(command (key-binding (this-single-command-keys))))
(when (and (equal (this-single-command-keys) [backspace])
(key (this-single-command-keys))
(command (key-binding key)))
(when (and (equal key [backspace])
(null command))
(setq command (key-binding (kbd "DEL"))))
command)
Expand Down

0 comments on commit 2ca3ec7

Please sign in to comment.