hiro/boon
1
0
Fork 0
mirror of https://github.com/vale981/boon synced 2025-03-05 17:41:42 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

remove duplicate

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2014-10-23 13:37:38 +02:00
parent 36c803f474
commit 08f7d9acda
1 changed files with 6 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
boon-main.el
View file

@ -122,6 +122,12 @@
(boon-extract-region)
(yank))
(defun boon-line-prefix ()
"return the text between beginning of line and position"
(buffer-substring-no-properties
(line-beginning-position)
(point)))
(defun boon-at-indent-or-more-p ()
"return non-nil if the point is at the current line
indentation; or to the right."
@ -265,12 +271,6 @@ indentation"
(comment-or-uncomment-region (min (car reg) (cdr reg))
(max (car reg) (cdr reg)))))
(defun boon-line-prefix ()
"return the text between beginning of line and position"
(buffer-substring-no-properties
(line-beginning-position)
(point)))
(defun boon-beginning-of-line ()
"Move point to the first non-whitespace character on this line.
If point was already at that position, move point to beginning of
@ -319,12 +319,6 @@ line."
(unless (funcall progress)
(end-of-line)))))
(defun boon-line-prefix ()
"return the text between beginning of line and position"
(buffer-substring-no-properties
(line-beginning-position)
(point)))
(defun blank-string-p (string)
"Is the argument composed only of spaces and other blank characters?"
(equal "" (replace-regexp-in-string "[[:space:]]" "" string)))