comparison lisp/org/org-mobile.el @ 105865:131bccfc4f5d

* org.el (org-version, org-get-refile-targets, org-refile) (org-store-log-note, org-diary-to-ical-string) (org-speedbar-set-agenda-restriction): * org-publish.el (org-publish-find-title): * org-plot.el (org-plot/gnuplot): * org-mouse.el (org-mouse-do-remotely): * org-mobile.el (org-mobile-move-capture): * org-mac-message.el (org-mac-message-insert-flagged): * org-latex.el (org-replace-region-by-latex): * org-docbook.el (org-replace-region-by-docbook): * org-clock.el (org-clock-out, org-clock-cancel): * org-bibtex.el (org-execute-file-search-in-bibtex): Use with-current-buffer.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 05 Nov 2009 21:00:31 +0000
parents 2a8a3a69c1c7
children b7d8222914b4
comparison
equal deleted inserted replaced
105864:c6d77597d0f2 105865:131bccfc4f5d
389 (capture-buffer (find-file-noselect 389 (capture-buffer (find-file-noselect
390 (expand-file-name org-mobile-capture-file 390 (expand-file-name org-mobile-capture-file
391 org-mobile-directory))) 391 org-mobile-directory)))
392 (insertion-point (make-marker)) 392 (insertion-point (make-marker))
393 not-empty content) 393 not-empty content)
394 (save-excursion 394 (with-current-buffer capture-buffer
395 (set-buffer capture-buffer)
396 (setq content (buffer-string)) 395 (setq content (buffer-string))
397 (setq not-empty (string-match "\\S-" content)) 396 (setq not-empty (string-match "\\S-" content))
398 (when not-empty 397 (when not-empty
399 (set-buffer inbox-buffer) 398 (set-buffer inbox-buffer)
400 (widen) 399 (widen)