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: > "Stephen J. Turnbull" <stephen(a)xemacs.org&gt; writes: > >> Sirano Dhe-Paganon writes: >> >>> In Xemacs 21, how can I lock the scrolling behavior (either horizontal or >>> vertical, but not both) of split screens? >> >> You'll have to write the code to do this yourself AFAIK.  It can be >> done, I'm sure, but it's not a built-in behavior.  Normally split >> windows (even in the same frame) have independent geometry, and I >> don't think there's built-in provision for the kind of partial linkage >> you're talking about. > > XEmacs does not have the C-x 6 keybindings?  I thought they were pretty > ancient. > > -- > David Kastrup > > _______________________________________________ > 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