|
|
|
@ -397,6 +397,25 @@ indent yanked text (with prefix arg don't indent)." |
|
|
|
("%" . apply-operation-to-number-at-point) |
|
|
|
("'" . operate-on-number-at-point))) |
|
|
|
|
|
|
|
(defadvice server-visit-files (before parse-numbers-in-lines (files proc &optional nowait) activate) |
|
|
|
"Open file with emacsclient with cursors positioned on requested line. |
|
|
|
Most of console-based utilities prints filename in format |
|
|
|
'filename:linenumber'. So you may wish to open filename in that format. |
|
|
|
Just call: |
|
|
|
|
|
|
|
emacsclient filename:linenumber |
|
|
|
|
|
|
|
and file 'filename' will be opened and cursor set on line 'linenumber'" |
|
|
|
(ad-set-arg 0 |
|
|
|
(mapcar (lambda (fn) |
|
|
|
(let ((name (car fn))) |
|
|
|
(if (string-match "^\\(.*?\\):\\([0-9]+\\)\\(?::\\([0-9]+\\)\\)?$" name) |
|
|
|
(cons |
|
|
|
(match-string 1 name) |
|
|
|
(cons (string-to-number (match-string 2 name)) |
|
|
|
(string-to-number (or (match-string 3 name) "")))) |
|
|
|
fn))) files))) |
|
|
|
|
|
|
|
(provide 'prelude-editor) |
|
|
|
|
|
|
|
;;; prelude-editor.el ends here |