RE: scrolling behavior

Thank you Gary; scroll-all-mode does work when scroll commands (such as 'scroll-up') are manually entered in the input line, but on my machine not when the mouse scroll-wheel is used. My startup custom.el file is shown below. I will try to couple the commands to the mouse, but not sure. Sirano (custom-set-faces '(default ((t (:size "8pt" :family "Courier New"))) t) '(bold ((t (:size "8pt" :bold t))) t) '(linum ((t (:foreground ""))) t)) (custom-set-variables '(gutter-buffers-tab-visible-p nil) '(interprogram-cut-function nil) '(zmacs-regions nil) '(case-fold-search nil) '(interprogram-paste-function nil) '(case-replace nil) '(toolbar-visible-p nil) '(truncate-lines t)) (cd "y:/05_constructs") (set-face-background 'default "white") ; frame background (set-face-foreground 'default "black") ; normal text (set-face-background 'zmacs-region "grey") ; When selecting mouse (set-face-foreground 'zmacs-region "white") (set-face-background 'highlight "blue") ; Ie when selecting buffers (set-face-foreground 'highlight "yellow") (set-face-background 'modeline "grey") ; Line at bottom of buffer (set-face-foreground 'modeline "black") (set-face-background 'isearch "yellow") ; When highlighting while searching (set-face-foreground 'isearch "black") (set-face-background 'pointer "red") (set-face-foreground 'pointer "white") (set-face-background 'linum "green") (set-face-foreground 'linum "black") (setq x-pointer-foreground-color "black") ; Adds to bg color, so keep black (setq x-pointer-background-color "grey") ; This is color you really want ptr/crsr ;(set-face-font 'default "*courier-bold-r*120-100-100*") ;(set-face-font 'modeline "*bold-r-normal*140-100-100*") (load "y:/lisp/setface") (load "y:/lisp/sites") (load "y:/lisp/textedit") (load "y:/lisp/rectangle.el") (load "y:/lisp/toolbar") (load "y:/lisp/keys") (load "y:/lisp/protein_stability") (load "y:/lisp/setnu.el") (load "y:/lisp/structures") (load "y:/lisp/phylogenetics.el") (load "y:/lisp/path_pathways.el") (load "y:/lisp/count.el") (load "y:/lisp/path_hugo_stiglitz_renaming.el") (load "y:/lisp/path_nodes.el") (load "y:/lisp/scroll-all.el") ;(load "y:/lisp/ediff.el") ;(load "y:/lisp/ediff-util.el") ;(load "y:/lisp/ediff-wind.el") ;(load "y:/lisp/ediff-vers.el") ;(define-key ctl-x-map "," 'delete-empty-lines) ;; (defun delete-empty-lines () "Delete empty lines from buffer" (interactive) (save-excursion (beginning-of-buffer) (replace-regexp "\n$" "") ;;(beginning-of-buffer) (replace-regexp "\n[ \t]*$" "") (beginning-of-buffer) (delete-blank-lines))) (load-file "y:/lisp/pdb-mode.el") (setq auto-mode-alist (cons (cons "pdb$" 'pdb-mode) auto-mode-alist ) ) (autoload 'pdb-mode "PDB") (setq dna-do-setup-on-load t) (load "y:/lisp/dna-mode") (add-hook 'text-mode-hook 'turn-on-setnu-mode) (load-file "y:/lisp/prodrg-mode.el") (setnu-mode 1) (setq minibuffer-max-depth nil) (setq w32-use-full-screen-buffer nil) ;replace-regularexpression "^ .+" "" (setq initial-frame-plist '(height 68 width 260)) ;(setq default-frame-plist '(height 60 width 205)) ;(cd "c:/Documents and Settings/dhepag.SGC/My Documents/protein/") ;(set-specifier scrollbar-on-left-p t) ;(set-specifier scrollbar-width 30) ;(set-specifier scrollbar-width 0 (selected-frame)) ;(set-specifier scrollbar-width (cons (current-buffer) 0)) ;(set-specifier scrollbar-width 25 (current-buffer)) ;(set-specifier scrollbar-height 25 (current-buffer)) ;(set-specifier scrollbar-width 20) ;(set-specifier scrollbar-height 20) ;(global-set-key 'up 'scroll-one-line-up) ;(global-set-key 'down 'scroll-one-line-down) ;(setq scroll-conservatively 100000) (setq scroll-step 4) (setq-default scroll-step 1) (setq scroll-preserve-screen-position t) ;(setq initial-frame-plist '(top 0 left 0 height 92 width 220)) ;(setq default-frame-plist '(top 1 left 1 height 62 width 156)) ;(setq w32-use-full-screen-buffer nil) ;(setq initial-frame-alist `((left . 0) (top . 0) (width . 237) (height . 65))) ;(defun w32-maximize-frame () (interactive) (w32-send-sys-command 61488)) ;(add-hook 'window-setup-hook 'w32-maximize-frame t) ;(w32-send-sys-command #xf030) (defun uniquify-region-lines (beg end) "Remove duplicate adjacent lines in region." (interactive "*r") (save-excursion (goto-char beg) (while (re-search-forward "^\\(.*\n\\)\\1+" end t) (replace-match "\\1")))) (defun uniquify-buffer-lines () "Remove duplicate adjacent lines in the current buffer." (interactive) (uniquify-region-lines (point-min) (point-max))) (defun sacha/increase-font-size () (interactive) (set-face-attribute 'default nil :height (ceiling (* 1.10 (face-attribute 'default :height))))) (defun sacha/decrease-font-size () (interactive) (set-face-attribute 'default nil :height (floor (* 0.9 (face-attribute 'default :height))))) (global-set-key (kbd "C-+") 'sacha/increase-font-size) (global-set-key (kbd "C--") 'sacha/decrease-font-size) (defun read-sequence (start end) "clean up sequence data in marked region, call it 'sequence' " (interactive "r") (setq sequence (buffer-substring-no-properties start end)) (kill-region start end) (setq truncate-lines nil) (setq sequence (mapconcat '(lambda (var) (if (string-match "[ARNDCEQGHILKMFPSTWYV]" (upcase (char-to-string var))) (upcase (char-to-string var)) "")) sequence "") ) ; regexp filter removes whitespace and line numbers (insert sequence) ) (defun hcon(seq) "count no of hydrophobic residues in sequence" (setq hcon 0) (mapcar '(lambda (var) (if (string-match "[ACGILMFPWV]"(upcase (char-to-string var))) (setq hcon (1+ hcon) ) )) seq) hcon) (defun sfe-estimate (eps sequence) "Rough HP estimate of structural free energy, in units of kT. eps is a hydrophobic strength parameter, expected to be typically in the range 2-4" (setq nh (hcon sequence)) (setq ntot (length sequence)) (setq Ne (floor (* 3 (expt ntot (/ 2.0 3))))) ; no. of solvent-exposed residues (setq Nb (- ntot Ne)) ; no. of 'bulk' residues (setq A (- (exp eps) 1)) ; ABC for quadratic soln (setq B (- (- nh Ne) (* (+ nh Nb) (exp eps)))) ; bulk-surface H:P partitioning (setq C (* (* (exp eps) nh) Nb)) (setq nbu (floor (/ (/ (- (+ B (sqrt (- (* B B) (* 4 (* A C)))))) 2) A))) (setq nex (- nh nbu)) (+ (+ (+ (+ (* eps nex) (* nbu (log nbu))) ; sum thermodynamic contributions (* (- Nb nbu) (log (- Nb nbu)))) (* nex (log nex)))(* (- Ne nex) (log (- Ne nex)))) ) (define-key global-map '(alt f2) 'hyphenallminus) (define-key global-map '(alt f3) 'q126) (define-key global-map '(button1) 'mouse-track) (define-key global-map '(button2) 'insert-selection) (define-key global-map '(shift button1) 'cw-build-buffers) (define-key global-map '(shift button2) 'mouse-keep-one-window) (define-key global-map '(shift button3) 'mouse-function-menu) (define-key global-map '(alt tab) 'buffer-menu) (define-key global-map '(button3) 'popup-buffer-menu) -----Original Message----- From: xemacs-beta-bounces(a)xemacs.org [mailto:xemacs-beta-bounces＠xemacs.org] On Behalf Of Gary Foster Sent: Tuesday, September 28, 2010 12:50 PM To: David Kastrup Cc: xemacs-beta(a)xemacs.org Subject: Re: scrolling behavior Try the scroll-lock package ( might be called scroll-all, it has been a while). I wrote that a very long time ago and it might be what you are looking for. -- Gary F. Sent from my iPhone On Sep 28, 2010, at 9:06, David Kastrup <dak(a)gnu.org&gt; wrote: or _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/mailman/listinfo/xemacs-beta _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/mailman/listinfo/xemacs-beta