Skip to content

Instantly share code, notes, and snippets.

@dbushenko

dbushenko/gist:1369550

Created November 16, 2011 08:10
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dbushenko/1369550 to your computer and use it in GitHub Desktop.
Save dbushenko/1369550 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
(defun my-copy ()
(interactive)
(search-backward " ")
(setq st (point))
(forward-char 1)
(search-forward " ")
(setq nd (point))
(setq txt (buffer-substring st nd))
(message text))
Copy link

ghost commented Nov 16, 2011

(defun my-copy ()
(interactive)
(let (st nd text)
(search-backward " ")
(setq st (point))
(forward-char 1)
(search-forward " ")
(setq nd (point))
(setq txt (buffer-substring st nd))
(message txt)))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment