Added personalisations file

schallis · Jul 11, 2011 · 2c240de · 2c240de
1 parent d305a26
commit 2c240de
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/stevechallis.el b/stevechallis.el
@@ -92,6 +92,15 @@
       (remq 'process-kill-buffer-query-function
             kill-buffer-query-functions))
 
+;; Line duplication function and key binding
+(defun eemklinks-duplicate-this-line ()
+ "Duplicate the current line (without any changes to the kill ring)."
+ (interactive)
+ (let ((line (buffer-substring (line-beginning-position) (line-end-position))))
+   (save-excursion (beginning-of-line) (insert-before-markers line "\n"))))
+
+(global-set-key (kbd "C-c d") 'eemklinks-duplicate-this-line)
+
 ;;
 ;;
 ;; YAsnippet