diff --git a/aquamacs/src/site-lisp/macosx/aquamacs-frame-setup.el b/aquamacs/src/site-lisp/macosx/aquamacs-frame-setup.el index c5fef85..5a879d4 100644 --- a/aquamacs/src/site-lisp/macosx/aquamacs-frame-setup.el +++ b/aquamacs/src/site-lisp/macosx/aquamacs-frame-setup.el @@ -68,7 +68,7 @@ aquamacs-define-the-fringe-bitmap (setq default-indicate-empty-lines t) (aquamacs-define-the-fringe-bitmap) -(setq fringe-mode '(1 . 1)) ;; to reflect the default. +(setq fringe-mode nil) ;; to reflect the default. ;; This is a hack because fringe-mode likes to round up stuff. ;; set default colors diff --git a/aquamacs/src/site-lisp/macosx/aquamacs-menu.el b/aquamacs/src/site-lisp/macosx/aquamacs-menu.el index cd2edde..c9baaf7 100644 --- a/aquamacs/src/site-lisp/macosx/aquamacs-menu.el +++ b/aquamacs/src/site-lisp/macosx/aquamacs-menu.el @@ -831,10 +831,10 @@ aquamacs-menu-bar-showhide-fringe-menu-customize-small (fringe-mode (cons 4 0))) (defun aquamacs-menu-bar-showhide-fringe-menu-customize-tiny () - "Display small fringes only on the left of each window." + "Display tiny fringes on the left and right of each window." (interactive) (require 'fringe) - (fringe-mode (cons 1 1))) + (fringe-mode '(1))) ;; Unfortunately, fringe-mode likes to round up fringes. ;; Therefore, we set both to 1. @@ -866,13 +866,13 @@ menu-bar-showhide-fringe-menu aquamacs-menu-bar-showhide-fringe-menu-customize-tiny :help "Tiny fringes, left and right" :visible ,(display-graphic-p) - :button (:radio . (equal fringe-mode '(1 . 1)))) 'none) + :button (:radio . (equal fringe-mode '(1)))) 'none) (define-key menu-bar-showhide-fringe-menu [default] '(menu-item "Left and Right" menu-bar-showhide-fringe-menu-customize-reset :help "Default width fringe on both left and right side" :visible (display-graphic-p) - :button (:radio . (eq fringe-mode nil)))) + :button (:radio . (or (eq fringe-mode nil) (equal fringe-mode '(nil)))))) (define-key-after menu-bar-options-menu [file-backups] diff --git a/aquamacs/src/site-lisp/macosx/osxkeys.el b/aquamacs/src/site-lisp/macosx/osxkeys.el index 5878c92..9d098d8 100644 --- a/aquamacs/src/site-lisp/macosx/osxkeys.el +++ b/aquamacs/src/site-lisp/macosx/osxkeys.el @@ -144,7 +144,7 @@ special-event-map (defun aquamacs-left-char () "Move point to the left or the beginning of the region. - Like `backward-char', but moves point to the beginning of the region + Like `left-char', but moves point to the beginning of the region provided `cua-mode' and the mark are active." (interactive) (let ((this-command 'left-char)) ;; maintain compatibility