emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Display inline images patch
@ 2010-05-31 19:30 Russell Adams
  2010-06-01 13:36 ` Carsten Dominik
  0 siblings, 1 reply; 5+ messages in thread
From: Russell Adams @ 2010-05-31 19:30 UTC (permalink / raw)
  To: emacs-orgmode

I got irritated by my point jumping to the end of the buffer every
time I toggled inline image display, so lets save excursion. ;]

$ diff -Narub org.el~ org.el
--- org.el~   2010-05-20 10:12:45.000000000 -0500
+++ org.el    2010-05-31 14:28:21.000000000 -0500
@@ -15489,6 +15489,7 @@
 is how it will work for export.  When INCLUDE-LINKED is set, also
 links
 with a description part will be inlined."
   (interactive "P")
+  (save-excursion 
   (org-remove-inline-images)
   (goto-char (point-min))
   (let ((re (concat "\\[\\[\\(file:\\|\\./\\)\\(~?"
   "[-+./_0-9a-zA-Z]+"
@@ -15501,7 +15502,7 @@
       (setq ov (make-overlay (match-beginning 0) (match-end 0)))
       (overlay-put ov 'display (create-image file))
       (overlay-put ov 'face 'default)
-      (push ov org-inline-image-overlays)))))
+          (push ov org-inline-image-overlays))))))
 
 (defun org-remove-inline-images ()
   "Remove inline display of images."






------------------------------------------------------------------
Russell Adams                            RLAdams@AdamsInfoServ.com

PGP Key ID:     0x1160DCB3           http://www.adamsinfoserv.com/

Fingerprint:    1723 D8CA 4280 1EC9 557F  66E8 1154 E018 1160 DCB3

^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2010-06-16 14:29 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2010-05-31 19:30 Display inline images patch Russell Adams
2010-06-01 13:36 ` Carsten Dominik
2010-06-09 14:17   ` Colin Fraizer
2010-06-10 22:59     ` Gregory J. Grubbs
2010-06-16 14:29       ` Bastien

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).