[OS X Emacs] Possible bugs in 2.3a

[Peter North]

I'm running the latest version of Aquamacs and I've noticed some quirks, possibly due to my lack of programming skills.

Function key f9 makes the screen do an apple expose function. Control f1 does nothing. 

I've tried via customizations to have 2 windows side by side, but they don't appear. Nor does the cursor color, blue, appear. Windows side by side and cursor colour have to be set manually. 

I have the old style wireless keyboard [chunky keys and sloping back] help is under f14 but only changes cursor pointer to a question mark. 

However, following binding codes do work for anyone interested. 

(global-set-key [(f1)] 'my-function)

(global-set-key (kbd "S-<f1>") 'my-function)

(global-set-key [(control f2)] 'my-function)

(global-set-key [(meta f1)] 'my-function)

These bindings work for function keys 1 to 13 and 16. Function keys 14, 15 and 20 don't as they are OS X system bound and I can't rebind them. Global-unset key gives an error message on startup, as does define-key. Help key is also unbindable, even after getting the scan codes for the key.

I'd like to have 2 windows side by side on startup with a blue box cursor, but I can't make that work. 

I've enclosed my  customizations files for persual. Preferences.el is empty. My .emacs, [which makes the above bindings work, while the same code in customizations does not.] 

I also tried to write lisp code to get the 2 windows etc in an attach file called "Start"

Thanks to anyone who can help. 

Peter North.

PS The new version of Aquamacs is the best yet.


Please consider the environment before printing this email.
=====This message is intended for the addressee(s) named and may contain confidential information.
If you are not the intended recipient, please delete it and notify the sender.
Views expressed in this email are those of the individual sender and are not necessarily the views of the Sydney Opera House Trust=====
-------------- next part --------------
(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.
 '(adaptive-fill-mode t)
 '(aquamacs-additional-fontsets nil t)
 '(aquamacs-customization-version-id 213 t)
 '(aquamacs-tool-bar-user-customization nil t)
 '(auto-save-interval 100)
 '(before-save-hook (quote (time-stamp)))
 '(buffer-offer-save nil)
 '(cc-search-directories (quote ("." "/usr/include" "/usr/local/include/*" "/usr/peter/" "/usr/peter/dos writings")))
 '(confirm-kill-emacs (quote y-or-n-p))
 '(cursor-in-non-selected-windows t)
 '(cursor-type (quote box))
 '(default-frame-alist (quote ((tool-bar-lines . 0) (menu-bar-lines . 1) (width . 100) (height . 200))))
 '(delete-auto-save-files nil)
 '(delete-by-moving-to-trash t)
 '(display-battery-mode t)
 '(display-buffer-reuse-frames nil)
 '(display-mm-dimensions-alist (quote (("default" 120 . 200))))
 '(display-time-24hr-format t)
 '(display-time-day-and-date t)
 '(display-time-interval 1)
 '(display-time-mode t)
 '(even-window-heights nil)
 '(face-font-family-alternatives (quote (("Times New Roman" "courier" "fixed") ("courier" "CMU Typewriter Text" "fixed") ("Sans Serif" "helv" "helvetica" "arial" "fixed") ("helv" "helvetica" "arial" "fixed"))))
 '(face-font-selection-order (quote (:width :height :weight :slant)))
 '(ff-always-in-other-window t)
 '(fill-column 80)
 '(initial-frame-alist (quote ((menu-bar-lines . 1) (nil))))
 '(minibuffer-auto-raise t)
 '(ns-tool-bar-display-mode nil t)
 '(ns-tool-bar-size-mode nil t)
 '(partial-completion-mode t)
 '(pop-up-frame-alist (quote ((width . 100) (height . 190))))
 '(ps-print-footer t)
 '(save-place t nil (saveplace))
 '(search-upper-case nil)
 '(sentence-end-without-period t)
 '(size-indication-mode t)
 '(split-height-threshold 0)
 '(split-width-threshold 85)
 '(split-window-horizontally t)
 '(split-window-preferred-function (quote split-window-horizontally))
 '(tabbar-mode t nil (tabbar))
 '(text-mode-hook (quote (turn-on-flyspell auto-detect-wrap)))
 '(version-control t)
 '(visible-cursor nil)
 '(visual-line-mode nil t)
 '(word-wrap t)
 '(x-stretch-cursor 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.
 '(default ((t (:inherit nil :stipple nil :background "Black" :foreground "Green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 180 :width normal :foundry "apple" :family "Times_New_Roman"))))
 '(autoface-default ((t (:inherit default))))
 '(cursor ((t (:foreground "blue"))))
 '(fundamental-mode-default ((t (:inherit autoface-default))) t)
 '(isearch ((((class color) (min-colors 88) (background dark)) (:background "black" :foreground "white"))))
 '(mouse ((t (:background "black" :foreground "yellow"))))
 '(vcursor ((((class color)) (:background "blue" :foreground "blue" :underline nil)))))



;;bind the Function key

;;(global-unset-key [f1])
(global-set-key [(f1)] 'find-file)
(global-set-key [(f2)] 'save-buffer)
(global-set-key [(f3)] 'backward-word)
(global-set-key [(f4)] 'undo)
(global-set-key [(f5)] 'forward-word)
(global-set-key [(f6)] 'end-of-line)
(global-set-key [(f7)] 'kill-word)
(global-set-key [(f8)] 'kill-line)
(global-set-key [(f9)] 'backward-kill-word)
(global-set-key [(f10)] 'fill-paragraph)
(global-set-key [(f11)] 'spellcheck-now)
(global-set-key [(f12)] 'set-mark)
(global-set-key [(f13)] 'beginning-of-line)
(global-set-key [(f16)] 'set-cursor-color)

;;bind Shift-Function keys

(global-set-key (kbd "S-<f1>") 'kill-buffer)
(global-set-key (kbd "S-<f2>") 'insert-file)
(global-set-key (kbd "S-<f3>") 'goto-char)
(global-set-key (kbd "S-<f4>") 'rename-buffer)
(global-set-key (kbd "S-<f5>") 'list-buffers)
(global-set-key (kbd "S-<f6>") 'find-file-other-frame)
(global-set-key (kbd "S-<f7>") 'switch-to-buffer)
(global-set-key (kbd "S-<f8>") 'isearch-forward)
(global-set-key (kbd "S-<f9>") 'isearch-backward)
(global-set-key (kbd "S-<f10>") 'query-replace-regular-expression)
;;(global-set-key (kbd "S-<f11>") '
;;(global-set-key (kbd "S-<f12>") '
;;(global-set-key (kbd "S-<f13>") '
(global-set-key (kbd "S-<f16>") '

;;bind Control-Function keys

(global-set-key [(control f1)] 'split-window-vertical)
(global-set-key [(control f2)] 'delete-other-windows)
(global-set-key [(control f3)] 'what-cursor-position)
(global-set-key [(control f4)] 'other-window)
(global-set-key [(control f5)] 'copy-to-register)
(global-set-key [(control f6)] 'insert-register)
(global-set-key [(control f7)] 'copy-register)
(global-set-key [(control f8)] 'copy-region-as-kill)
(global-set-key [(control f9)] 'kill-region)
(global-set-key [(control f10)] 'yank)
;;(global-set-key [(control f11)] '
;;(global-set-key [(control f12)] '
;;(global-set-key [(control f13)] '
(global-set-key [(control f16)] '

;;bind Alt-Function keys

(global-set-key [(meta f1)] 'save-buffers-kill-emacs)
(global-set-key [(meta f2)] 'what-cursor-position)
(global-set-key [(meta f3)] 'what-line)
(global-set-key [(meta f4)] 'goto-line)
(global-set-key [(meta f5)] 'exchange-point-and-mark)
(global-set-key [(meta f6)] 'dired)
(global-set-key [(meta f7)] 'split-window-horizontally)
(global-set-key [(meta f8)] 'start-keyboard-macro)
(global-set-key [(meta f9)] 'end-keyboard-macro)
(global-set-key [(meta f10)] 'call-last-keyboard-macro) 
;;(global-set-key (kbd "<M-f11>") '
;;(global-set-key (kbd "<M-f12>") '
;;(global-set-key (kbd "<M-f13>") 
(global-set-key (kbd "<M-f16>") 


-------------- next part --------------


;; panstart.el startup file for PAN 1128.7

(autoload 'set-cursor-color
   "set-cursor-color" "set-cursor-color "blue" t)

(autoload 'split-window-horizontally
   "split-window-horizontally" "split-window-horizontally" t)

;;(autoload 'find-file-other-window
;;   "find-file-other-window" "find-file-other-window" t)

(defun pan keybindings ()
   "Switch to *other window* and load file pan keybindings."
   (interactive)
   (load-file "*pan keybindings*")
   (display-key-bindings))