aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDominik Honnef <dominik@honnef.co>2015-01-15 22:12:18 +0100
committerAlan Donovan <adonovan@google.com>2015-01-20 22:08:13 +0000
commit4a084c77916db7ba5c75e91777cfee2f0ecfd35a (patch)
treefed2f4b31aad593cd734652dd822552139ca1cd5
parentb09f9e69fad4704b4eb66fb11b6f53f58b09c9c2 (diff)
downloadtools-4a084c77916db7ba5c75e91777cfee2f0ecfd35a.tar.gz
refactor/rename: allow passing -force flag from Emacs
Change-Id: Iac9355bc8a98cf61cb3d4ff871723ce466d38531 Reviewed-on: https://go-review.googlesource.com/2912 Reviewed-by: Alan Donovan <adonovan@google.com>
-rw-r--r--refactor/rename/rename.el10
1 files changed, 6 insertions, 4 deletions
diff --git a/refactor/rename/rename.el b/refactor/rename/rename.el
index 9268358..ea6c744 100644
--- a/refactor/rename/rename.el
+++ b/refactor/rename/rename.el
@@ -25,10 +25,12 @@
:type 'string
:group 'go-rename)
-(defun go-rename (new-name)
+(defun go-rename (new-name &optional force)
"Rename the entity denoted by the identifier at point, using
-the `gorename' tool."
- (interactive (list (read-string "New name: " (thing-at-point 'symbol))))
+the `gorename' tool. With FORCE, call `gorename' with the
+`-force' flag."
+ (interactive (list (read-string "New name: " (thing-at-point 'symbol))
+ current-prefix-arg))
(if (not buffer-file-name)
(error "Cannot use go-rename on a buffer without a file name"))
;; It's not sufficient to save the current buffer if modified,
@@ -50,7 +52,7 @@ the `gorename' tool."
(with-current-buffer (get-buffer-create "*go-rename*")
(setq buffer-read-only nil)
(erase-buffer)
- (let ((args (list go-rename-command nil t nil posflag "-to" new-name)))
+ (let ((args (append (list go-rename-command nil t nil posflag "-to" new-name) (if force '("-force")))))
;; Log the command to *Messages*, for debugging.
(message "Command: %s:" args)
(message "Running gorename...")