extern/boxes
1
0
Fork 0
mirror of https://github.com/ascii-boxes/boxes.git synced 2025-03-30 07:26:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

Remove spaces at EOL

Browse Source
This commit is contained in:
Jason L. Shiffer 2015-12-11 09:26:58 -05:00
parent b934190917
commit e38546fe7e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
doc/boxes.el
View File

@ -6,8 +6,8 @@
;; Maintainer: jshiffer@zerotao.com ;; Maintainer: jshiffer@zerotao.com
;; Keywords: extensions ;; Keywords: extensions
;; Created: 1999-10-30 ;; Created: 1999-10-30
;; Others: ;; Others:
;; Vijay Lakshminarayanan: support for choosing boxes comment by current buffer mode. ;; Vijay Lakshminarayanan: support for choosing boxes comment by current buffer mode.
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by ;; it under the terms of the GNU General Public License as published by
@ -104,7 +104,7 @@ To remove a box simply prefix a 1 to the callL M-1 M-x boxes-command-on-region w
(interactive (let ((string (interactive (let ((string
(completing-read (format "Box type (%s): " boxes-default-type) (completing-read (format "Box type (%s): " boxes-default-type)
boxes-types-alist nil t nil 'boxes-history boxes-default-type))) boxes-types-alist nil t nil 'boxes-history boxes-default-type)))
(list (region-beginning) (region-end) (list (region-beginning) (region-end)
string string
current-prefix-arg))) current-prefix-arg)))
(if type (if type
@ -112,7 +112,7 @@ To remove a box simply prefix a 1 to the callL M-1 M-x boxes-command-on-region w
(setq boxes-default-type (boxes-set-default-type major-mode) (setq boxes-default-type (boxes-set-default-type major-mode)
type boxes-default-type)) type boxes-default-type))
(let ((command-string (let ((command-string
(concat boxes-command (concat boxes-command
(if remove (if remove
(concat boxes-args " -r ")) (concat boxes-args " -r "))
(if type (if type