From e38546fe7ef97a8adac85da49b4b0ff815977afb Mon Sep 17 00:00:00 2001 From: "Jason L. Shiffer" Date: Fri, 11 Dec 2015 09:26:58 -0500 Subject: [PATCH 1/2] Remove spaces at EOL --- doc/boxes.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/doc/boxes.el b/doc/boxes.el index 4a438ea..28744c3 100644 --- a/doc/boxes.el +++ b/doc/boxes.el @@ -6,8 +6,8 @@ ;; Maintainer: jshiffer@zerotao.com ;; Keywords: extensions ;; Created: 1999-10-30 -;; Others: -;; Vijay Lakshminarayanan: support for choosing boxes comment by current buffer mode. +;; Others: +;; Vijay Lakshminarayanan: support for choosing boxes comment by current buffer mode. ;; 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 @@ -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 (completing-read (format "Box type (%s): " 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 current-prefix-arg))) (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) type boxes-default-type)) (let ((command-string - (concat boxes-command + (concat boxes-command (if remove (concat boxes-args " -r ")) (if type From 53601bd733bf413e452e9130ec101e7fa72105e2 Mon Sep 17 00:00:00 2001 From: "Jason L. Shiffer" Date: Fri, 11 Dec 2015 09:31:08 -0500 Subject: [PATCH 2/2] Fixes #19 Problems with boxes.el in xemacs Removes the 6th arg to shell-command-on-region as it is not necessary and does not exist in older versions of xemacs Thanks to Kevin Ryde for this fix. --- doc/boxes.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/doc/boxes.el b/doc/boxes.el index 28744c3..29e2063 100644 --- a/doc/boxes.el +++ b/doc/boxes.el @@ -117,7 +117,7 @@ To remove a box simply prefix a 1 to the callL M-1 M-x boxes-command-on-region w (concat boxes-args " -r ")) (if 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) ;;; boxes.el ends here