Re: Emacs opens a frame for each file in agenda list on org-mobile-push

[Steve Brown <steve.stevebrown@gmail.com>]

Good morning Charles,

here's the bug reported as promised.

I run Emacs from a pendrive on a Windows XP Pro box. My site-start.el 
contains the following to map home to <drive letter>:home on Emacs 
start. The first line has no line break after the defvar so there are 
only two lines of code.

Otherwise the Emacs is 'vanilla' - I use it for writing and not coding 
so I try to keep things simple ;-)

If you need anything else please let me know.

Thank you,

Steve

============= site-start.el ===================================

(defvar usb-drive-letter (substring data-directory 0 3)) (defvar 
usb-home-dir (concat usb-drive-letter "home/"))

(setenv "HOME" usb-home-dir)

============= site-start.el ===================================



=========== Bug Report ========================================

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

      http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

On executing org-mobile-push Emacs opens one frame per file listed in
the agenda file list.

I have deleted refences to specific files and replaced them with
"DELETED", all punctuation etc. will remain 'as is'.

I will also follow this with my full .emacs suitably edited for
personal information.

Emacs  : GNU Emacs 23.1.50.1 (i386-mingw-nt5.1.2600)
  of 2009-07-30 on BREPNB
Package: Org-mode version 6.33c

current state:
==============
(setq
  org-log-done 'time
  org-agenda-files '("~/Orgfiles/DELETED.org" "~/Orgfiles/work.org"
		    "~/Orgfiles/DELETED.org" "~/Orgfiles/trial.org"
		    "~/Orgfiles/busdev.org" "~/Orgfiles/home.org"
		    "~/Orgfiles/main.org" "~/Orgfiles/DELETED.org")
  org-agenda-include-diary t
  org-export-with-sub-superscripts nil
  org-after-todo-state-change-hook '(org-clock-out-if-current)
  org-export-preprocess-hook '(org-export-blocks-preprocess)
  org-tab-first-hook '(org-hide-block-toggle-maybe)
  org-src-mode-hook '(org-src-mode-configure-edit-buffer)
  org-confirm-shell-link-function 'yes-or-no-p
  org-todo-keywords '((sequence "TODO" "STARTED" "WAITING" "|" "DONE"
		      "DELEGATED")
		     )
  org-agenda-before-write-hook '(org-agenda-add-entry-text)
  org-default-notes-file "~/.notes.org"
  org-directory "~/Orgfiles/"
  org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
		  org-cycle-show-empty-lines
		  org-optimize-window-after-visibility-change)
  org-mode-hook '(#[nil "\300\301\302\303\304$\207"
		   [org-add-hook change-major-mode-hook org-show-block-all
		    append local]
		   5]
		 )
  org-confirm-elisp-link-function 'yes-or-no-p
  org-occur-hook '(org-first-headline-recenter)
  )

=========== Bug Report ========================================

=========== .emacs ============================================

(custom-set-variables
   ;; custom-set-variables was added by Custom.
   ;; If you edit it by hand, you could mess it up, so be careful.
   ;; Your init file should contain only one such instance.
   ;; If there is more than one, they won't work right.
  '(appt-display-duration 59)
  '(appt-display-format (quote window))
  '(diary-mail-addr "")
  '(display-battery-mode t)
  '(display-time-mode t)
  '(emacsw32-max-frames t)
  '(org-agenda-files (quote ("~/Orgfiles/DELETED.org" 
"~/Orgfiles/work.org" "~/Orgfiles/DELETED.org" "~/Orgfiles/trial.org" 
"~/Orgfiles/busdev.org" "~/Orgfiles/home.org" "~/Orgfiles/main.org" 
"~/Orgfiles/DELETED.org")))
  '(org-mobile-directory "~/stage")
  '(org-mobile-inbox-for-pull "~/Orgfiles/mobileinbox.org")
  '(show-paren-mode t)
  '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
  '(view-diary-entries-initially t))
(custom-set-faces
   ;; custom-set-faces was added by Custom.
   ;; If you edit it by hand, you could mess it up, so be careful.
   ;; Your init file should contain only one such instance.
   ;; If there is more than one, they won't work right.
  )
;; emacs start up file
(setq inhibit-splash-screen t)
(setq make-backup-files nil)
(setq auto-save-mode nil)

;; diary customisation
(add-hook 'diary-display-hook 'fancy-diary-display)
(add-hook 'list-diary-entries-hook 'sort-diary-entries t)
(setq european-calendar-style t)
;;; show date in status bar
(setq display-time-day-and-date t
       display-time-24hr-format t)
(display-time)
(appt-activate 1)
(setq appt-display-mode-line t)
(setq appt-display-format 'window)

;; Org Mode
(setq load-path (cons "~/org/lisp" load-path))
(setq load-path (cons "~/org/contrib/lisp" load-path))
(require 'org-install)
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(setq org-log-done t) ;timestamp on completion
(setq org-agenda-include-diary t)
(setq org-export-with-sub-superscripts nil)

;; Remember Mode
(add-to-list 'load-path "~/remember")
(require 'remember)

(setq org-directory "~/Orgfiles/")
(setq org-default-notes-file "~/.notes.org")
(setq remember-annotation-functions '(org-remember-annotation))
(setq remember-handler-functions '(org-remember-handler))
(add-hook 'remember-mode-hook 'org-remember-apply-template)
(define-key global-map "\C-cr" 'org-remember)

(defun gtd ()
    (interactive)
    (find-file "~/Orgfiles/main.org")
  )

(setq org-todo-keywords
        '((sequence "TODO" "STARTED" "WAITING" "|" "DONE" "DELEGATED")))

(setq printer-name "//LEI-10/Brother_SBR")

;; Spell checking
(setq-default ispell-program-name "~/Aspell/bin/aspell.exe")


=========== .emacs ============================================