Browse Source

used kill-new instead of temp buffer in prelude-copy-file-name-to-clipboard

custom
Bozhidar Batsov 14 years ago
parent
commit
c8d307d8cc
  1. 8
      modules/prelude-core.el

8
modules/prelude-core.el

@ -175,16 +175,14 @@ the curson at its beginning, according to the current mode."
'display '(left-fringe right-triangle)))))))
(defun prelude-copy-file-name-to-clipboard ()
"Put the current file name on the clipboard."
"Copy the current buffer file name to the clipboard."
(interactive)
(let ((filename (if (equal major-mode 'dired-mode)
default-directory
(buffer-file-name))))
(when filename
(with-temp-buffer
(insert filename)
(clipboard-kill-region (point-min) (point-max)))
(message filename))))
(kill-new filename)
(message "Copied buffer file name '%s' to the clipboard." filename))))
(defun prelude-duplicate-current-line-or-region (arg)
"Duplicates the current line or region ARG times.

Loading…
Cancel
Save