diff options
author | Dominik Honnef <dominik@honnef.co> | 2015-01-15 22:12:18 +0100 |
---|---|---|
committer | Alan Donovan <adonovan@google.com> | 2015-01-20 22:08:13 +0000 |
commit | 4a084c77916db7ba5c75e91777cfee2f0ecfd35a (patch) | |
tree | fed2f4b31aad593cd734652dd822552139ca1cd5 | |
parent | b09f9e69fad4704b4eb66fb11b6f53f58b09c9c2 (diff) | |
download | tools-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.el | 10 |
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...") |