extern/boxes
1
0
Fork 0
mirror of https://github.com/ascii-boxes/boxes.git synced 2025-03-04 17:22:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #20 from zerotao/master

Browse Source 
Fixes #19 Problems with boxes.el in xemacs
This commit is contained in:
Thomas Jensen 2015-12-11 15:52:21 +01:00
commit 33c9eb0bf9
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
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,12 +112,12 @@ 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
(concat boxes-args " -d " type))))) (concat boxes-args " -d " type)))))
(shell-command-on-region start end command-string nil 1 nil))) (shell-command-on-region start end command-string nil 1)))
(provide 'boxes) (provide 'boxes)
;;; boxes.el ends here ;;; boxes.el ends here