From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: "Sieber, Fred" Newsgroups: gmane.emacs.bugs Subject: Size position of the first window Date: Fri, 2 Jul 2004 13:36:03 -0700 Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Message-ID: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="===============0743635278==" X-Trace: sea.gmane.org 1088800610 12424 80.91.224.253 (2 Jul 2004 20:36:50 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 2 Jul 2004 20:36:50 +0000 (UTC) Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Jul 02 22:36:31 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BgUlo-000448-00 for ; Fri, 02 Jul 2004 22:36:29 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1BgUnd-0005XK-NK for geb-bug-gnu-emacs@m.gmane.org; Fri, 02 Jul 2004 16:38:21 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1BgUna-0005X2-Mq for bug-gnu-emacs@gnu.org; Fri, 02 Jul 2004 16:38:18 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1BgUnX-0005VM-0L for bug-gnu-emacs@gnu.org; Fri, 02 Jul 2004 16:38:18 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1BgUnW-0005VB-PE for bug-gnu-emacs@gnu.org; Fri, 02 Jul 2004 16:38:14 -0400 Original-Received: from [161.114.32.105] (helo=zcamail05.zca.compaq.com) by monty-python.gnu.org with esmtp (Exim 4.34) id 1BgUlD-0004pZ-Oj for bug-gnu-emacs@gnu.org; Fri, 02 Jul 2004 16:35:53 -0400 Original-Received: from cacexg11.americas.cpqcorp.net (cacexg11.americas.cpqcorp.net [16.92.1.50]) by zcamail05.zca.compaq.com (Postfix) with ESMTP id 7DCFB9C for ; Fri, 2 Jul 2004 13:35:51 -0700 (PDT) Original-Received: from cacexc01.americas.cpqcorp.net ([16.92.1.75]) by cacexg11.americas.cpqcorp.net with Microsoft SMTPSVC(6.0.3790.0); Fri, 2 Jul 2004 13:35:50 -0700 X-MimeOLE: Produced By Microsoft Exchange V6.5.6944.0 Content-class: urn:content-classes:message X-MS-Has-Attach: X-MS-TNEF-Correlator: Thread-Topic: Size position of the first window Thread-Index: AcRgdCjr+s8LSGjzQROVD5kLxxwMyQ== Original-To: X-OriginalArrivalTime: 02 Jul 2004 20:35:50.0747 (UTC) FILETIME=[29D452B0:01C46074] X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.4 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.bugs:8341 X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:8341 This is a multi-part message in MIME format. --===============0743635278== Content-class: urn:content-classes:message Content-Type: multipart/alternative; boundary="----_=_NextPart_001_01C46074.31359E35" This is a multi-part message in MIME format. ------_=_NextPart_001_01C46074.31359E35 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: quoted-printable To: bug-gnu-emacs@gnu.org Subject: Size Position of First Window --text follows this line-- This bug report will be sent to the Free Software Foundation, not to your local site managers! Please write in English, because the Emacs maintainers do not have translators to read other languages for them. =20 Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list, and to the gnu.emacs.bug news group. =20 In GNU Emacs 21.2.1 (i686-pc-cygwin, X toolkit) of 2004-03-22 on cm-test configured using `configure --prefix=3D/usr --bindir=3D/usr/bin --sysconfdir=3D/etc --libexecdir=3D/usr/sbin --localstatedir=3D/var --datadir=3D/usr/share --infodir=3D/usr/share/info = --mandir=3D/usr/share/man --without-toolkit-scroll-bars' Important settings: value of $LC_ALL: nil value of $LC_COLLATE: nil value of $LC_CTYPE: nil value of $LC_MESSAGES: nil value of $LC_MONETARY: nil value of $LC_NUMERIC: nil value of $LC_TIME: nil value of $LANG: nil locale-coding-system: nil default-enable-multibyte-characters: t =20 Please describe exactly what actions triggered the bug and the precise symptoms of the bug: =20 Although the below methods work for all but the first frame created, the first frame of the program never quite turns out the way it should in size and position. The intent is to place the frame on the right half of the screen. The program seems to make final adjustments so that you do not get the geometry that your specified. You cant even compensate for it by trying to adjust your requested geometry to compensate for the adjustment the program makes. There is no control over it. =20 The intended geometry is for a 1200x1600 pixel display. The x position should be 800 for this, the 830 was an attempt to compensate for the adjustment the program made, but this adjustment is unsuccessful also. =20 Please excuse by obfuscated lisp, but I do not think that is the problem. =20 =20 Start up function used: =20 =20 function er () { font=3D'9x15bold' # geometry=3D'86x76-0+0' # adust for brain damaged emacs 21.x, add 4 to height, off center by 10 pixels # geometry=3D'85x80+820+0' geometry=3D'85x75+830+0' background=3D'Dark Green' foreground=3D'white' cursor=3D'yellow' if [ $# -gt 0 ] then emacs -g $geometry -g.f $geometry -fn $font -fn.f $font -bg "$background" -bg.f "$background" -fg "$foreground" -fg.f "$foreground" -cr $cursor $1 --debug-init & else emacs -g $geometry -g.f $geometry -fn $font -fn.f $font -bg "$background" -bg.f "$background" -fg "$foreground" -fg.f "$foreground" -cr $cursor --debug-init & fi } =20 .emacs file: =20 ; after editing load this file with the load-file command =20 ;; uncommend below to deug ;; (setq debug-on-error 'a) ;; (setq debug-on-error 'a) ;; this is for xemacs 20.0, suns, etc ;; (set-toolbar nil) =20 ;; (scroll-bar-mode -1) ;; (tool-bar-mode -1) =20 =20 =20 ;; ************* set my-font, my-height my-width ;; pickup -f smallfonts in command line to mean use a smaller font ;; (defun smallfonts () =20 ;; ( if ( member "smallfonts" command-line-args ) ;; ( progn (setq my-font "6x10") (setq my-height 76) (setq my-width 91) ) ;; ( progn (setq my-font "6x13") (setq my-height 64) (setq my-width 91) ) ;; ) ) ;; (smallfonts) =20 ;; small fonts=20 ;; (setq my-font "6x10") (setq my-height 76) (setq my-width 91)=20 ;; (setq my-font "7x15") (setq my-height 88) (setq my-width 84)=20 =20 ;; (setq mode-line-buffer-identification "%12b %12f") =20 =20 =20 ;; *******************************mode line (setq default-mode-line-format (list "-" 'mode-line-mule-info 'mode-line-modified=20 '(line-number-mode " >L%l<") 'mode-line-frame-identification "%b %f" " " (getenv "HOST") "-" (getenv "LOGNAME") 'global-mode-string=20 "- %[(" 'mode-name 'mode-line-process=20 'minor-mode-alist "%n" ")%]--" '(which-func-mode ("" which-func-format "--") ) '(column-number-mode "C%c--") '(-3 . "%p") "-%-" ) ) =20 (add-hook 'c-mode-hook '(lambda () { (setq mode-line-format (list "-" 'mode-line-mule-info 'mode-line-modified=20 'mode-line-frame-identification "%b-%f" "-" (getenv "HOST") "-" (getenv "LOGNAME") 'global-mode-string=20 " %[(" 'mode-name 'mode-line-process=20 'minor-mode-alist "%n" ")%]--" '(which-func-mode ("" which-func-format "--") ) '(line-number-mode "-L%l--") '(column-number-mode "C%c--") '(-3 . "%p") "-%-" ) ) ) ) =20 ; (add-hook 'dired-mode-hook '(lambda () { ; (setq mode-line-format (list "-" ; "%b %f" " " (getenv "HOST") " " (getenv "USER") ; 'mode-name ; ) ) ) ) =20 ; (add-hook 'dired-mode-hook '(lambda () { ; (setq mode-line-format (list "-" ; 'mode-line-mule-info ; 'mode-line-modified=20 ; 'mode-line-frame-identification ; "%b %f" " " (getenv "HOST") " " (getenv "USER") ; 'global-mode-string=20 ; " %[(" ; 'mode-name ; 'mode-line-process=20 ; 'minor-mode-alist ; "%n" ")%]--" ; '(which-func-mode ("" which-func-format "--") ) ; '(-3 . "%p") ; "-%-" ) ) ) ) =20 =20 =20 ;; **************look in ~/emacs (add-to-list 'load-path (expand-file-name "~/emacs")) =20 =20 =20 ;; ***************************for cmushell and multi-shell (tracking-shell) ;; this shell does a cd to the directory the shell was invoked from ; (add-to-list 'load-path (expand-file-name "~/emacs/cmushell")) ; (autoload 'tracking-shell "multi-shell" nil t) ; (autoload 'cmushell "cmushell" nil t) ; (load-file "~/emacs/cmushell/comint.el") =20 =20 =20 ;; ********************for ange-ftp, could not get it to work for lisp-dir-apropos ;; (load-file "/home/jeffb/local/share/emacs/20.6/lisp/ange-ftp.el"); ;; (setq ange-ftp-gateway-ftp-program-name "/usr/bin/rftp") ;; (setq ange-ftp-smart-gateway t) =20 =20 =20 ;; *************************for lispdir.el ;; (autoload 'format-lisp-code-directory "~/emacs/lispdir" nil t) ;; (autoload 'lisp-dir-apropos "~/emacs/lispdir" nil t) ;; (autoload 'lisp-dir-retrieve "~/emacs/lispdir" nil t) ;; (autoload 'lisp-dir-verify "~/emacs/lispdir" nil t) ;; =20 ;; ***********************************find-dired INSTALLATION=20 ;; 19.25 dired extensions, like F// key to view all marked files ;; (load-file "/home/jeffb/local/share/emacs/20.6/lisp/dired-x.elc"); (load-file "/usr/share/emacs/21.2/lisp/dired-x.elc"); (load-file "/usr/share/emacs/21.2/lisp/dired-aux.elc"); =20 =20 =20 ;; ************************************for rcs check in check out ;; (load-file "~/vc.el"); (load-file "/usr/share/emacs/21.2/lisp/vc.elc"); (load-file "/usr/share/emacs/21.2/lisp/vc-rcs.elc"); =20 =20 =20 ;; ************************************ for windows follow mouse ;; (load-file "~/emacs/follow-mouse.el"); ;; (turn-on-follow-mouse) ;; for wheel mouse - reflection x does not support ;; (load-file "~/emacs/mwheel.el"); =20 =20 =20 ;; ********************************* java jde =20 ;; for jde/semantic related stuff ;; (add-to-list 'load-path (expand-file-name "~/emacs/jde/jde-2.2.6/lisp")) ;; (add-to-list 'load-path (expand-file-name "~/emacs/jde/eieio-0.16")) ;; (add-to-list 'load-path (expand-file-name "~/emacs/jde/elib-1.0")) ;; (add-to-list 'load-path (expand-file-name "~/emacs/jde/speedbar-0.13a")) ;; (add-to-list 'load-path (expand-file-name "~/emacs/jde/semantic-1.3.3")) =20 ;; for semantic ;;(require 'senator) ;;(require 'semantic-c) ; for C code integration ;;(require 'semantic-el) ; for Emacs Lisp code integration ;;(require 'semantic-make) ; for Makefile integration ;;(require 'semantic-imenu) ; if you use imenu or wich-function ;;(add-hook 'speedbar-load-hook (lambda () (require 'semantic-sb))) ; for speedbar integration ;; (autoload 'semantic-bnf-mode "semantic-bnf" "Mode for Bovine Normal Form." t) ;; (add-to-list 'auto-mode-alist '("\\.bnf$" . semantic-bnf-mode)) ; for editing .bnf parser files. ;;(autoload 'semantic-minor-mode "semantic-mode" "Mode managing semantic parsing." t) ; for semantic-minor-mode =20 ;; more for jde ;; (require 'jde) =20 =20 =20 ;; ***************** auto modes ****************** =20 ;; auto mode .c .h to c++ mode (setq auto-mode-alist '(("\\.te?xt\\'" . text-mode) ("\\.c\\'" . c++-mode) ("\\.h\\'" . c++-mode) ("\\.idl\\'" . c++-mode) ("\\.tex\\'" . tex-mode) ("\\.ltx\\'" . latex-mode) ("\\.el\\'" . emacs-lisp-mode) ("\\.mm\\'" . nroff-mode) ("\\.me\\'" . nroff-mode) ("\\.ms\\'" . nroff-mode) ("\\.man\\'" . nroff-mode) ("\\.scm\\'" . scheme-mode) ("\\.l\\'" . lisp-mode) ("\\.lisp\\'" . lisp-mode) ("\\.f\\'" . fortran-mode) ("\\.F\\'" . fortran-mode) ("\\.for\\'" . fortran-mode) ("\\.p\\'" . pascal-mode) ("\\.pas\\'" . pascal-mode) ("\\.mss\\'" . scribe-mode) ("\\.ad[abs]\\'" . ada-mode) ("\\.icn\\'" . icon-mode) ("\\.pl\\'" . perl-mode) ("\\.pm\\'" . perl-mode) ("\\.cc\\'" . c++-mode) ("\\.hh\\'" . c++-mode) ("\\.C\\'" . c++-mode) ("\\.H\\'" . c++-mode) ("\\.cpp\\'" . c++-mode) ("\\.cxx\\'" . c++-mode) ("\\.hxx\\'" . c++-mode) ("\\.c\\+\\+\\'" . c++-mode) ("\\.h\\+\\+\\'" . c++-mode) ("\\.java\\'" . java-mode) ("\\.mk\\'" . makefile-mode) ("\\(M\\|m\\|GNUm\\)akefile\\(.in\\)?\\'" . makefile-mode) ("\\.texinfo\\'" . texinfo-mode) ("\\.te?xi\\'" . texinfo-mode) ("\\.s\\'" . asm-mode) ("\\.S\\'" . asm-mode) ("\\.asm\\'" . asm-mode) ("ChangeLog\\'" . change-log-mode) ("change.log\\'" . change-log-mode) ("changelso\\'" . change-log-mode) ("ChangeLog.[0-9]+\\'" . change-log-mode) ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode) ("\\.scm\\.[0-9]*\\'" . scheme-mode) =20 ("\\.[ck]?sh\\'\\|\\.shar\\'\\|/\\.z?profile\\'" . sh-mode) =20 ("/\\.\\(bash_profile\\|z?login\\|bash_login\\|z?logout\\)\\'" . sh-mode) =20 ("/\\.\\(bash_logout\\|[kz]shrc\\|bashrc\\|t?cshrc\\|esrc\\)\\'" . sh-mode) =20 ("/\\.\\([kz]shenv\\|xinitrc\\|startxrc\\|xsession\\)\\'" . sh-mode) ("\\.[12345678]\\'" . sh-mode) ("\\.TeX\\'" . tex-mode) ("\\.sty\\'" . latex-mode) ("\\.cls\\'" . latex-mode) ("\\.bbl\\'" . latex-mode) ("\\.bib\\'" . bibtex-mode) ("\\.article\\'" . text-mode) ("\\.letter\\'" . text-mode) ("\\.tcl\\'" . tcl-mode) ("\\.exp\\'" . tcl-mode) ("\\.itcl\\'" . tcl-mode) ("\\.itk\\'" . tcl-mode) ("\\.f90\\'" . f90-mode) ("\\.lsp\\'" . lisp-mode) ("\\.awk\\'" . awk-mode) ("\\.prolog\\'" . prolog-mode) ("\\.tar\\'" . tar-mode) ("\\.\\(arc\\|zip\\|lzh\\|zoo\\)\\'" . archive-mode) ("\\.\\(ARC\\|ZIP\\|LZH\\|ZOO\\)\\'" . archive-mode) ("\\`/tmp/Re" . text-mode) ("/Message[0-9]*\\'" . text-mode) ("/drafts/[0-9]+\\'" . mh-letter-mode) ("\\`/tmp/fol/" . text-mode) ("\\.y\\'" . c-mode) ("\\.lex\\'" . c-mode) ("\\.oak\\'" . scheme-mode) ("\\.sgml?\\'" . sgml-mode) ("\\.dtd\\'" . sgml-mode) ("\\.s?html?\\'" . html-mode) ("[]>:/]\\..*emacs\\'" . emacs-lisp-mode) ("[:/]_emacs\\'" . emacs-lisp-mode) ("\\.ml\\'" . lisp-mode)) ) =20 ; ("\\.[12345678]\\'" . nroff-mode) ("\\.TeX\\'" . tex-mode) =20 =20 =20 ;; ****************** shell tracker ;; (eval-after-load "shell" '(load "shellt")) ;; this does not seem to work =20 =20 =20 ;; ***************html extensions ;;; need to preset auto-mode-alist here, this may be too old =20 ;; (load-file "~/emacs/html32-mode.el") ;; (autoload 'html32-mode "html32-mode" "HTML major mode." t) ;; (or (assoc "\\.html$" auto-mode-alist) ;; (setq auto-mode-alist (cons '("\\.html$" . html32-mode)=20 ;; auto-mode-alist))) ;; (or (assoc "\\.shtml$" auto-mode-alist) ;; (setq auto-mode-alist (cons '("\\.shtml$" . html32-mode)=20 ;; auto-mode-alist))) ;; (or (assoc "\\.htm$" auto-mode-alist) ;; (setq auto-mode-alist (cons '("\\.htm$" . html32-mode)=20 ;; auto-mode-alist))) =20 ;; add my own modifications to html32 =20 (defun html32-add-blockquote () "Add
" (interactive) (insert "
") ) =20 ;; To use this file, byte-compile it, install it somewhere in your ;; load-path, and put: ;;;; this line crashed emacs 20.3 ;; (autoload 'find-dired "find-dired" nil t) ;; (autoload 'find-name-dired "find-dired" nil t) ;; (autoload 'find-grep-dired "find-dired" nil t) ;; in your ~/.emacs, or site-init.el, etc. ;; To bind it to a key, put, e.g.: ;; ;; (global-set-key "\C-cf" 'find-dired) ;; (global-set-key "\C-cn" 'find-name-dired) ;; (global-set-key "\C-cl" 'find-grep-dired) ;; ;; in your ~/.emacs. ;;; Code ;; (defun printcar (a) (print a '"#")) (setq arg0 (nth 0 command-line-args)) (setq arg1 (nth 1 command-line-args)) ;; (mapcar 'printcar command-line-args) ;; defun findarg (a) ( ( cond ( ( eq ( car a ) '1 ) (setq foundarg 1) ) ) ) ) ;; (defun findarg (a) ( cond ( (string=3D a "emacs" ) ( setq foundarg = 1 ) ) (t (setq foundarg 0 ) ) ) ) ;; (mapcar 'findarg '((1 2) (2 3) (3 4))) ;; (mapcar 'findarg command-line-args) =20 =20 =20 ;; *********************** ksh extensions =20 ;; for ksh-mode (autoload 'ksh-mode "ksh-mode" "Major mode for editing sh Scripts." t) =20 (setq auto-mode-alist (append auto-mode-alist (list '("\\\\.sh$" . ksh-mode) '("\\\\.ksh$" . ksh-mode) '("\\\\.bashrc" . ksh-mode) '("\\\\..*profile" . ksh-mode)))) =20 (setq ksh-mode-hook (function (lambda () (font-lock-mode 1) ;; font-lock the buffer (setq ksh-indent 4) (setq ksh-group-offset -4) (setq ksh-brace-offset -4) =20 (setq ksh-tab-always-indent t) (setq ksh-match-and-tell t) (setq ksh-case-item-offset 2) (setq ksh-case-indent nil) (setq ksh-align-to-keyword t) ;; Turn on keyword alignment ))) =20 =20 =20 ;; *********************** python extensions =20 ;; (load-file "~/emacs/python-mode.el") =20 ;; (or (assoc "\\.py$" auto-mode-alist) ;; (setq auto-mode-alist (cons '("\\.py$" . python-mode)=20 ;; auto-mode-alist))) ;;(setq interpreter-mode-alist=20 ;; (cons '("python" . python-mode) ;; interpreter-mode-alist)) =20 ;; (autoload 'python-mode "python-mode" "Python editing mode." t) =20 =20 =20 ;;; *************** locate any font or geometry bg arguments and use them (setq foundgeom 'nil) (setq foundheight 'nil) (setq foundwidth 'nil) (setq foundfont 'nil) (setq foundbg 'nil) (setq foundfg 'nil) =20 ;; (setq foundgf 'nil) ;;(setq foundgfcdr 'nil) =20 (setq args command-line-args) ( while (not (eq 'nil args))=20 ( cond =20 ( (string=3D (car args) "-fn.f" )=20 (setq args2 (cdr args)) (if (not (eq 'nil args2)) (setq foundfont (car args2) ) ) ) =20 ( (string=3D (car args) "-g.f" ) ;; (setq foundgf "hello") ;; (setq foundgfcdr (cdr args)) =20 (setq args2 (cdr args)) (if (not (eq 'nil args2)) (progn=20 (setq foundgeom (car args2) ) (setq index 0) ( while (not ( char-equal (elt foundgeom index) ?x ) )=20 (setq foundwidth (concat foundwidth (char-to-string (elt foundgeom index)))) (setq index(1+ index)) ) (setq index(1+ index))=20 ( while (not (or (char-equal (elt foundgeom index) ?+ ) =20 (char-equal (elt foundgeom index) ?- ) ) ) (setq foundheight (concat foundheight (char-to-string (elt foundgeom index))) ) (setq index(1+ index)) ) ) =20 ) ) =20 ( (string=3D (car args) "-bg.f" )=20 (setq args2 (cdr args)) (if (not (eq 'nil args2)) (setq foundbg (car args2) ) ) ) =20 ( (string=3D (car args) "-fg.f" )=20 (setq args2 (cdr args)) (if (not (eq 'nil args2)) (setq foundfg (car args2) ) ) ) =20 =20 ) (setq args (cdr args) )=20 ) =20 (when (not (eq foundheight 'nil)) (setq foundheight (string-to-int foundheight))=20 (setq foundheight (- foundheight 3) ) ) (if (not (eq foundwidth 'nil)) (setq foundwidth (string-to-int foundwidth)) ) =20 =20 =20 =20 =20 ;; ******************customization set by menu =20 (custom-set-variables ;; custom-set-variables was added by Custom -- don't edit or cut/paste it! ;; Your init file should contain only one such instance. '(automatic-hscrolling nil) '(dired-free-space-program 'nil) '(global-hl-line-mode t nil (hl-line)) '(ls-lisp-emulation (quote UNIX)) '(ls-lisp-dirs-first t) '(ls-lisp-verbosity (quote (uid gid))) '(scroll-bar-mode nil) '(tool-bar-mode nil nil (tool-bar))) (custom-set-faces ;; custom-set-faces was added by Custom -- don't edit or cut/paste it! ;; Your init file should contain only one such instance. '(font-lock-comment-face ((t (:foreground "salmon")))) '(highlight ((((class color) (background dark)) (:background "slate grey")))) ;; '(highlight ((((class color) (background dark)) (:background "darkolivegreen")))) '(fringe ((t (:background "dark green" :foreground "grey"))))) =20 (setq ls-lisp-emulation (quote UNIX)) =20 =20 ;; after editing load this file with the load-file command =20 (setq dired-free-space-program 'nil) =20 ;; this is for xemacs 20.0, suns, etc ;; (set-toolbar nil) =20 (scroll-bar-mode -1) (tool-bar-mode -1) =20 ;; ******************after getting arguments, use them in customization =20 ;; ****************************** version stuff ;; indicate if running xemacs (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)) =20 =20 =20 ;; Pickup emacs version ; Older versions of emacs did not have these variables ; (emacs-major-version and emacs-minor-version.) ; Let's define them if they're not around, since they make ; it much easier to conditionalize on the emacs version. (if (and (not (boundp 'emacs-major-version)) (string-match "^[0-9]+" emacs-version)) (setq emacs-major-version (string-to-int (substring emacs-version (match-beginning 0) (match-end 0))))) (if (and (not (boundp 'emacs-minor-version)) (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version)) (setq emacs-minor-version (string-to-int (substring emacs-version (match-beginning 1) (match-end 1))))) =20 ; Define a function to make it easier to check which version we're ; running. (defun running-emacs-version-or-newer (major minor) (or (> emacs-major-version major) (and (=3D emacs-major-version major) (>=3D emacs-minor-version minor)))) =20 =20 =20 ;; ***********************frame size stuff ( cond=20 =20 ;; for versions 19.30 and later ( ( running-emacs-version-or-newer 19 30 ) =20 =20 ;; initial values for default-frame-plist=20 ;; (setq default-frame-plist '((horizontal-scroll-bar . t) ;; (vertical-scroll-bar . t) ;; (minibuffer . t) (user-position . t) ;; (user-size . f) ;; (user-font . t ) ;; (height . 60) (width . 90) ;; (top . 0) (left - 0) ;; (cursor-color . "yellow") (mouse-color . "yellow") ;; (foreground-color . "white") ;; (background-color . "Dark Green") ;; (font . "6x10") ;; ) ) ;; ;; now modify according to font selection ;; (setcdr (assoc 'font default-frame-plist) foundfont) ;; (setcdr (assoc 'height default-frame-plist) foundheight) ;; (setcdr (assoc 'width default-frame-plist) foundwidth) ;; (setcdr (assoc 'foreground-color default-frame-plist foundfg) ;; (setcdr (assoc 'background-color default-frame-plist foundbg) =20 ;; initial values for default-frame-alist, same as plist (setq default-frame-alist '((horizontal-scroll-bar . f) (tool-bar . f ) (vertical-scroll-bar . f) (minibuffer . t) (user-position . t) (user-size . f) (user-font . t) (height . 76) (width . 85) (top . 0) (left - 0) (cursor-color . "yellow") (mouse-color . "yellow") (foreground-color . "white") (background-color . "Dark Green") (font . "6x10") ) ) ;; now modify according to font selection (if (not (eq foundfont 'nil)) (setcdr (assoc 'font default-frame-alist) foundfont) ) (if (not (eq foundheight 'nil)) (setcdr (assoc 'height default-frame-alist) foundheight) ) (if (not (eq foundwidth 'nil)) (setcdr (assoc 'width default-frame-alist) foundwidth) ) (if (not (null foundfg)) (setcdr (assoc 'foreground-color default-frame-alist) foundfg) ) (if (not (null foundbg)) (setcdr (assoc 'background-color default-frame-alist) foundbg) ) =20 =20 =20 ;; defun for new frame on right, 1st do plist, then alist (defun new-frame-right() (interactive) ;; (setq default-frame-plist '((horizontal-scroll-bar . f) ;; (vertical-scroll-bar . f) ;; (minibuffer . t) (user-position . t) (user-size . t) ;; (height . 76) (width . 91) (top . 0) (left - 0) ;; (cursor-color . "yellow") (mouse-color . "yellow") ;; (foreground-color . "white") ;; (background-color . "Dark Green") (font . "6x10"))=20 ;; ) ;; ;; modify for font selection ;; (setcdr (assoc 'font default-frame-plist) my-font) ;; (setcdr (assoc 'height default-frame-plist) my-height) ;; (setcdr (assoc 'width default-frame-plist) my-width) =20 (setq default-frame-alist '((horizontal-scroll-bar . f) (tool-bar . f ) (vertical-scroll-bar . f) (minibuffer . t) (user-position . t) (user-size . t) (height . 76) (width . 85) (top . 0) (left - 0) (cursor-color . "yellow") (mouse-color . "yellow") (foreground-color . "white") (background-color . "Dark Green") (font . "6x10")) ) ;; modify for font selection (if (not (eq foundfont 'nil)) (setcdr (assoc 'font default-frame-alist) foundfont) ) (if (not (eq foundheight 'nil)) (setcdr (assoc 'height default-frame-alist) foundheight) ) (if (not (eq foundwidth 'nil)) (setcdr (assoc 'width default-frame-alist) foundwidth) ) (if (not (null foundfg)) (setcdr (assoc 'foreground-color default-frame-alist) foundfg) ) (if (not (null foundbg)) (setcdr (assoc 'background-color default-frame-alist) foundbg) ) =20 (scroll-bar-mode -1) (tool-bar-mode -1) =20 (make-frame-command) ) =20 =20 =20 ;; defun for new frame on left =20 (defun new-frame-left() (interactive) ;; (setq default-frame-plist '((horizontal-scroll-bar . f) ;; (vertical-scroll-bar . f) ;; (minibuffer . t) (user-position . t) (user-size . t) ;; (height . 76) (width . 91) (top . 0) (left - 0) ;; (cursor-color . "yellow") (mouse-color . "yellow") ;; (foreground-color . "white") ;; (background-color . "Dark Green") (font . "6x10"))=20 ;; ) ;; ;; modify for font selection ;; (setcdr (assoc 'font default-frame-plist) my-font) ;; (setcdr (assoc 'height default-frame-plist) my-height) ;; (setcdr (assoc 'width default-frame-plist) my-width) =20 (setq default-frame-alist '((horizontal-scroll-bar . f) (tool-bar . f ) (vertical-scroll-bar . f) (minibuffer . t) (user-position . t) (user-size . t) (height . 76) (width . 85) (top . 0) (left . 0) (cursor-color . "yellow") (mouse-color . "yellow") (foreground-color . "white") (background-color . "Dark Green") (font . "6x10")) ) ;; modify for font selection (if (not (eq foundfont 'nil)) (setcdr (assoc 'font default-frame-alist) foundfont) ) (if (not (eq foundheight 'nil)) (setcdr (assoc 'height default-frame-alist) foundheight) ) (if (not (eq foundwidth 'nil)) (setcdr (assoc 'width default-frame-alist) foundwidth) ) (if (not (null foundfg)) (setcdr (assoc 'foreground-color default-frame-alist) foundfg) ) (if (not (null foundbg)) (setcdr (assoc 'background-color default-frame-alist) foundbg) ) =20 (scroll-bar-mode -1) (tool-bar-mode -1) =20 (make-frame-command) ) =20 ;; defun for new frame on center (defun new-frame-center() (interactive) ;; (setq default-frame-plist '((horizontal-scroll-bar . f) ;; (vertical-scroll-bar . f) ;; (minibuffer . t) (user-position . t) (user-size . t) ;; (height . 76) (width . 85) (top . 0) (left . 532) ;; (cursor-color . "yellow") (mouse-color . "yellow") ;; (foreground-color . "white") ;; (background-color . "Dark Green") (font . "6x10"))=20 ;; ) ;; ;; modify for font selection ;; (setcdr (assoc 'font default-frame-plist) my-font) ;; (setcdr (assoc 'height default-frame-plist) my-height) ;; (setcdr (assoc 'width default-frame-plist) my-width) =20 (setq default-frame-alist '((horizontal-scroll-bar . f) (tool-bar . f ) (vertical-scroll-bar . f) (minibuffer . t) (user-position . t) (user-size . t) (height . 76) (width . 85) (top . 0) (left . 600) (cursor-color . "yellow") (mouse-color . "yellow") (foreground-color . "white") (background-color . "Dark Green") (font . "6x10")) ) ;; modify for font selection (if (not (eq foundfont 'nil)) (setcdr (assoc 'font default-frame-alist) foundfont) )=20 (if (not (eq foundheight 'nil)) (setcdr (assoc 'height default-frame-alist) foundheight) ) (if (not (eq foundwidth 'nil)) (setcdr (assoc 'width default-frame-alist) foundwidth) ) (if (not (null foundfg)) (setcdr (assoc 'foreground-color default-frame-alist) foundfg) ) (if (not (null foundbg)) (setcdr (assoc 'background-color default-frame-alist) foundbg) ) (scroll-bar-mode -1) (tool-bar-mode -1) =20 (make-frame-command) ) =20 ;; end runnin-emacs-version-or-newer ) =20 =20 =20 =20 =20 ;; earlier versions =20 ( t=20 =20 (defun new-frame-left() (interactive)=20 ( make-frame '( (horizontal-scroll-bar . f) (vertical-scroll-bar . f) (tool-bar . f ) (minibuffer . t) (user-position . t) (user-size . t) (height . 76) (width . 85) (top . 0) (left . 0) (cursor-color . "yellow") (mouse-color . "yellow") (foreground-color . "white") (background-color . "Dark Green") (font . "9x15bold") )=20 ) ) =20 (defun new-frame-right() (interactive)=20 ( make-frame '( (horizontal-scroll-bar . f) (vertical-scroll-bar . f) (tool-bar . f ) (minibuffer . t) (user-position . t) (user-size . t) (height . 76) (width . 85) (top . 0) (left . 600) (cursor-color . "yellow") (mouse-color . "yellow") (foreground-color . "white") (background-color . "Dark Green") (font . "9x15bold") ) ) ) =20 ) =20 =20 ;; end cond )=20 =20 =20 =20 (defun move-frame-right() (interactive) ( new-frame-right) ( delete-frame ) ) (defun move-frame-left() (interactive) ( new-frame-left) ( delete-frame ) ) =20 =20 =20 ;; ****************************operational variables (setq default-case-fold-search nil) (setq scroll-step 1) =20 =20 =20 ;; abbreviation stuff ;; (setq abbrev-all-caps 'nil) ;; (setq abbrev-mode 't) ; (quietly-read-abbrev-file "~/AirRes/AirResAbbrev") ; macro to save abbreviations ;; (fset 'save-abbrev ;; [escape ?x ?w ?r ?i ?t ?e ?- ?a ?b ?b ?r ?e ?v ?- ?f ?i ?l ?e return ?\C-a ?\C-k ?~ ?/ ?A ?i ?r ?R ?e ?s ?/ ?A ?i ?r ?R ?e ?s ?A ?b ?b ?r ?e ?v return]) ;; (global-set-key [escape ?-] 'abbrev-prefix-mark) =20 =20 =20 ;; tags stuff ;; (setq tags-file-name '/export/home/fsieber/worka/obb_vistas/TAGS) =20 =20 =20 ;; backspace stuff ;; (keyboard-translate "\C-h" "\C-?") ;; (keyboard-translate "\C-?" "\C-h") =20 ;; ************************************** vc (setq vc-rcsdiff-knows-brief 'no) =20 ;; paths ; (setq vc-path '/usr/local/rcs/bin) ;; no toolbar ;; (set-specifier top-toolbar-visible-p 'nil) ;; preferred shell =20 ;; ***************************************** shell (setq explicit-shell-file-name "/usr/bin/ksh") =20 =20 =20 =20 =20 ;; *********** indenting and colorizing ************** =20 ;; indenting for c, c++ (setq c-basic-offset 4) (setq c-indent-level 4) (setq c-continued-statement-offset 4) (setq c-brace-offset 0) (setq c-brace-imaginary-offet 0) (setq c-label-offset -4) (setq c-argdecl-indent 0) =20 ;; colorize (global-font-lock-mode t) ;; set comments to salmon (custom-set-variables) (custom-set-faces '(font-lock-comment-face ((t (:foreground "salmon"))))) =20 =20 =20 ;; set tab stop at 4 (setq tab-stop-list '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76)) ; (setq tab-width 4) =20 ;; tabs, newlines, indpenting (global-set-key "\C-h" 'delete-backward-char) ;; (define-key c-mode-map "\C-i" 'tab-to-tab-stop) ;; (define-key c++-mode-map "\C-i" 'tab-to-tab-stop) ;; should be just for c++-mode, but cant get it to work ;; (global-set-key "\C-i" 'c++-indent-line) ;; (global-set-key "\C-m" 'newline-and-indent) ;; (define-key c-mode-map "\C-m" 'newline-and-indent) ;; (define-key c++-mode-map "\C-m" 'newline-and-indent) =20 ;; ^j newline and indent it ;; ^o move to next line and indent it (fset 'nextline-and-indent "\C-n\C-a\C-i") ;; (fset 'nextline-and-indent-new "\C-n\C-a\C-i") =20 (defun nextline-and-indent-new() (interactive) (newline) (c-indent-line) ) (defun endline-and-indent-new() (interactive) (end-of-line) (newline-and-indent) ) (global-set-key "\C-j" 'endline-and-indent-new) (global-set-key "\C-o" 'nextline-and-indent) =20 ;; (define-key c-mode-map "\C-j" 'nextline-and-indent) ;; (global-set-key "\C-m" 'nextline-and-indent-new) ;; (define-key c-mode-map "\C-m" 'nextline-and-indent-new) ;; (define-key c++-mode-map "\C-m" 'nextline-and-indent-new) ;; (define-key c++-mode-map "\C-j" 'nextline-and-indent) =20 ;; seems like default style for c-style-alist is "gnu" does indent by 2 ;; ( cond ( ( running-emacs-version-or-newer 19 30 ) =20 ;; (c-set-style "cc-mode") ;; ) ;; ) =20 =20 =20 ;; c-mode-hook put line line number, abbrev-mode, auto-mode (add-hook 'c-mode-hook 'line-number-mode 1) (add-hook 'perl-mode-hook 'line-number-mode 1) ;; (setq perl-mode-hook '(lambda () (line-number-mode 1)(abbrev-mode 1) ) ) ;; (add-hook 'c-mode-hook 'abbrev-mode) =20 ;; (defun my-c-mode-common-hook() ;; (setq c-mode-hook ;; '(lambda () ;; (line-number-mode 1)(abbrev-mode 1)(c-toggle-auto-state 1) ;; (c-toggle-hungry-state 1) ;; (c-set-style "cc-mode") ;; ) ;; ) ;; ) ;; (add-hook 'c-mode-common-hook 'my-c-mode-common-hook) =20 =20 =20 (setq c++-mode-hook '(lambda () (line-number-mode 1)(abbrev-mode 1) ;; (define-key c-mode-map "\C-m" 'newline-and-indent) (define-key c++-mode-map "\C-m" 'newline-and-indent) (c-set-style "cc-mode" ) ) ) =20 =20 =20 ;; junk ;;(defun fredsgoto(ARG) (interactive) (line-number-mode) (goto-line) ) ;;(setq sun-esc-bracket t) =20 (defun reportfile () "Report which file this is" (interactive nil) (setq fileName (buffer-file-name)) (message "----%s-----" fileName) (sleep-for 2) (message "") ) =20 =20 =20 ;; ***********************jeffs functions =20 ;;---------------------------------------------------------------------- ------- (defun current-line () "Return the current buffer line at point. The first line is 0." (save-excursion (beginning-of-line) (count-lines (point-min) (point)) ) ) ;;---------------------------------------------------------------------- ------- (defun rof () "Reopen the current file anew. Discard the current buffer and reread file from disk. Good for viewing the newest error log after a new run." (interactive nil) (setq line (current-line)) (setq column (current-column)) (setq fileName (buffer-file-name)) (kill-buffer (current-buffer)) (find-file fileName) (goto-line (+ 1 line)) (forward-char column) (message "---------- File Reopened ----------") (sleep-for 1) (message "") ) ;;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (defun rec () "Save buffer and redo the last compile command." (interactive nil) (save-buffer (current-buffer)) (recompile) ) ;;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (defun rmtws () "Remove trailing whitespace from the current buffer." (interactive nil) (save-excursion (goto-char (point-min)) (while (< (point) (point-max)) (end-of-line) (delete-horizontal-space) (forward-line 1) ) ) ) ;;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (defun rmbl () "Remove blank lines from the current buffer." (interactive nil) (save-excursion (goto-char (point-min)) (while (< (point) (point-max)) (delete-blank-lines) (forward-line 1) ) ) ) ;;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (defun utb () "Untab the current buffer. Convert tabs to spaces." (interactive nil) (untabify (point-min) (point-max)) (save-buffer (current-buffer)) (rmws) ) ;;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (defun jpf () "Fill current paragraph, justify, and move forward." (interactive nil) (fill-paragraph 'justify) (forward-paragraph) (recenter) ) ;;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (defun delete-line () "Delete the line the cursor is on." (interactive nil) (beginning-of-line) (setq beg (point)) (forward-line 1) (setq end (point)) (kill-region beg end) ) ;;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (defun dup-line () "Duplicate the current line." (interactive nil) (save-excursion (beginning-of-line) (setq beg (point)) (forward-line 1) (setq end (point)) (copy-region-as-kill beg end) (yank) ) (forward-line 1) ) ;;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (defun insert-tab () "Insert a non-interpreted TAB (do not indent)." (interactive nil) (setq char "\t") (insert char) ) ;;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (defun jpf () "Fill current paragraph, justify, and move forward." (interactive nil) (fill-paragraph 'left) (forward-paragraph) (recenter) ) =20 ;; easiet to hardest =20 ;; self-insert ;; ^ ;; function ;; ^ function ;; esc ;; esc function ;; alt=20 ;; alt funtion ;; shift function ;; moderate acrobatics ;; esc ^ ;; esc alt=20 ;; esc shift ;; finger mangling beyond this point ;; ^ alt ;; ^ shift limited set ;; alt shift ;; alt shift function ;; esc ^ alt ;; esc ^ shift ;; esc alt shift ;; ^ alt shift ;; esc ^ alt shift=20 =20 ;; *********** mouse ************** =20 (fset 'previous-3-lines [up up up]) (fset 'next-3-lines [down down down]) ; (global-set-key [mouse-4] 'previous-3-lines) ; (global-set-key [mouse-5] 'next-3-lines) (global-set-key [mouse-4] 'previous-line) (global-set-key [mouse-5] 'next-line) =20 ;; *********** redefined CTRL keys ************** =20 ;; ^abcdefgknp well known ;; ^h is backspace ;; ^i is tab ;; ^j is linefeed ;; ^l go to line ;; ^m is RET ;; ^o is go down redoing intents ;; ^q is quoted insert ;; ^r-s backward-forward search ;; ^t is tab ;; ^u is universal argument follow by digits, four times default ;; ^v scroll down ;; ^w yank/delete ;; ^x prefix =20 ;; ^z undefined =20 ;; ^, undefined ;; ^. undefined ;; ^/ is undo ;; ^; undefined ;; ^' undefined ; ^[ is esc ;; ^] match brackets ;; ^/ is scroll up ;; ^- begin negative argument ;; ^` undefined ;; ^=3D undefined =20 =20 =20 ;; ^l (global-set-key "\C-l" 'goto-line) =20 ;; ^O was overwrite mode, ^o now used for indent control ;; ^o set to next-line-and-indent, above ;;(global-set-key "\C-z" 'overwrite-mode) ;;(global-set-key "\C-z" 'overwrite-mode) ;; (global-set-key "\C-o" 'overwrite-mode) =20 ;; ^S, ^R to isearch-forward-regexp (global-set-key "\C-s" 'isearch-forward-regexp) (global-set-key "\C-r" 'isearch-backward-regexp) =20 ;; ^t logical tab ;; the following line erros on 19.33 ;; (define-key c-mode-map "\C-t" 'tab-to-tab-stop) ;;was esc i ;; (define-key c++-mode-map "\C-t" 'tab-to-tab-stop) ;;was esc i (global-set-key "\C-t" 'tab-to-tab-stop) ;;was esc i =20 ;; ^Z page up as is ^\ ;; (global-set-key "\C-z" 'scroll-down) =20 ;; ^z is grab to Register z ;; esc z is put back from Register z (fset 'save-in-reg-z [?\C-x ?r ?s ?z ]) (global-set-key "\C-z" 'save-in-reg-z) =20 =20 =20 ;; ^] blink matching pen (global-set-key "\C-]" 'blink-matching-open) =20 ;; (global-set-key "\C-]" 'blink-matching-open)=20 =20 ;; ^. dired-up-directory ;; (global-set-key "\C-\." 'dired-up-directory) =20 =20 ;; ^; grep ;; (global-set-key "\C-;" 'grep)=20 ;; (global-set-key [(control ";")] 'grep)=20 =20 ;; ^\ page up, note ^Z is also~/ (global-set-key "\C-\\" 'scroll-down) =20 ;; ^'=20 ;; (global-set-key "\C-=3D" 'do-shell-comment) =20 ;; (global-set-key "\C-=3D" 'do-shell-comment) =20 =20 =20 =20 =20 ;; ************** redefined esc keys *************** =20 ;; esc q query-replace ;; (define-key c-mode-map "\M-q" 'query-replace) ;; (define-key c++-mode-map "\M-q" 'query-replace) ;; query-replace now F3 ;; (global-set-key "\M-q" 'query-replace) ;; (global-set-key "\336" 'delete-backward-char) =20 ;; esc : clean up indenting in region (global-set-key [escape ?:] 'indent-region) =20 ;; esc ; line up comment on this line, move to next (defun freds-indent-for-comment() (interactive) (indent-for-comment)(next-line 1)) (global-set-key [escape ?;] 'freds-indent-for-comment) =20 ;; < > below =20 ;; available aijnpquvz ;; available /;'[]\`-=3D =20 ;; esc 1 - 0 are avaialable =20 ;; esc 1 or esc ! same as shft F4 ;;=20 (global-set-key [escape ?1] 'shell-command) =20 ;; ecc a available ;; esc b change to *Buffer List* (defun change-to-buffer-list() (interactive) (switch-to-buffer "*Buffer List*") (Buffer-menu-revert) ) (global-set-key [escape ?b] 'change-to-buffer-list) =20 ;; esc c change to *Compilation* (defun change-to-compilation() (interactive) (switch-to-buffer "*compilation*")) (global-set-key [escape ?c] 'change-to-compilation) =20 ;; esc d change to debug -- does not work ; (fset 'goto-debug ; [?\C-x ?b ?* ?g ?u ?d ?- ? return]) (fset 'goto-debug [escape ?b escape ?< ?\C-s ?g ?u ?d ?- ?\C-m ?f]) ;; (defun change-to-debug() (interactive) (switch-to-buffer "*gud- ")) (global-set-key [escape ?d] 'goto-debug) =20 ;; esc e goto .emacs ;; (fset 'goto-emacs ;; [?\C-x ?\C-f ?\C-a ?\C-k ?~ ?/ ?. ?e ?m ?a ?c ?s return]) (defun goto-emacs() (interactive) (find-file "~/.emacs")) (global-set-key [escape ?e] 'goto-emacs) =20 ;; esc f !rcsdiff (fset 'rcsdiff-on-file [ ?! ?r ?c ?s ?d ?i ?f ?f return ] ) (global-set-key [escape ?f] 'rcsdiff-on-file) =20 ;; esc g change to *Grep* (defun change-to-grep() (interactive) (switch-to-buffer "*grep*")) (global-set-key [escape ?g] 'change-to-grep) =20 ;; esc h go to home directory (defun go-home() (interactive) (dired "~") ) (global-set-key [escape ?h] 'go-home) =20 ;; esc i undefined ;; esc j undefined ;; esc k change to *Shell* (fset 'do-pwd [?p ?w ?d return]) =20 (defun change-to-shell() (interactive) (switch-to-buffer "*shell*") (shell) (execute-kbd-macro 'do-pwd)) (global-set-key [escape ?k] 'change-to-shell) =20 ;; esc l co -l (fset 'rcs-lock-file [ ?! ?r ?c ?s ? ?- ?l return ] ) (global-set-key [escape ?l] 'rcs-lock-file) =20 =20 =20 ;; esc m change to *Messages* (defun change-to-messages() (interactive) (switch-to-buffer "*Messages*")) (global-set-key [escape ?m] 'change-to-messages) =20 ;; esc n line-number-mode=20 (global-set-key [escape ?n] 'line-number-mode) =20 ;; esc o change to *Occur* (defun change-to-occur() (interactive) (switch-to-buffer "*Occur*")) (global-set-key [escape ?o] 'change-to-occur) =20 ;; esc p undefined ;; esc q undefined =20 ;; esc r "rename-buffer" (fset 'rename-the-buffer [escape ?x ?r ?e ?n ?a ?m ?e ?- ?b ?u ?f ?f ?e ?r return ?\C-u ?\C-x ?q return]) (global-set-key [escape ?r] 'rename-the-buffer) =20 ;; esc s change to *Shell Command Output* (defun change-to-shell-output() (interactive) (switch-to-buffer "*Shell Command Output*")) ;; (fset 'change-to-shell-output ;; [?\C-x ?b ?* ?S ?h ?e ?l ?l ? ?C ?o ?m ?m ?a ?n ?d ? ?O ?u ?t ?p ?u ?t ?* return]) (global-set-key [escape ?s] 'change-to-shell-output) =20 ;; esc t go to top directory (defun go-to-top-dir() (interactive) (dired "/master/WES") ) (global-set-key [escape ?t] 'go-to-top-dir) =20 ;; esc u !rcs -u (fset 'rcs-unlock-file [ ?! ?r ?c ?s ? ?- ?u return ] ) (global-set-key [escape ?u] 'rcs-unlock-file) =20 ;; esc v rlog on the file (fset 'rcs-rlog-file [ ?! ?r ?l ?o ?g return ] ) (global-set-key [escape ?v] 'rcs-rlog-file) =20 ;; wxy below =20 ;; esc z is put back from Register z ;; ^z is grab to Register z (fset 'get-from-reg-z [?\C-x ?r ?i ?z ]) (global-set-key [escape ?z] 'get-from-reg-z) =20 ;; also available /;'[]\`-=3D =20 ;; wxy<> below ;; these are standard but we lost the escape as prefix by using it with function ;; keys below (global-set-key [escape ?w] 'kill-ring-save) (global-set-key [escape ?x] 'execute-extended-command) =20 (global-set-key [escape ?y] 'yank-pop) (global-set-key [escape ?<] 'beginning-of-buffer) (global-set-key [escape ?>] 'end-of-buffer) =20 =20 =20 ;; ****************** redefined CTRL-X - ************** ;; ^x p prev window, =20 ;; ^x n next window =20 (fset 'prev-windows "\C-u-1\C-xo") (global-set-key "\C-xp" 'prev-windows) =20 (global-set-key "\C-xn" 'other-window) =20 =20 =20 ;; ***************** other special keys ************ ;; up down =20 (global-set-key [up] 'previous-line) (global-set-key [down] 'next-line) (global-set-key [home] 'beginning-of-buffer) (global-set-key [end] 'end-of-buffer) =20 =20 =20 ;; printscreen (defun list-matching-lines-this() (interactive) (list-matching-lines (thing-at-point 'word) ) ) (global-set-key [print] 'list-matching-lines-this) (defun list-matching-lines-selected() (interactive) (list-matching-lines (buffer-substring (mark) (point)) ) ) (global-set-key [C-print] 'list-matching-lines-selected) =20 (fset 'repeat-last-shell-command [escape ?x ?s ?h ?e ?l ?l ?- ?c ?o ?m ?m ?a ?n ?d return up return]) (global-set-key [S-print] 'repeat-last-shell-command) =20 (fset 'do-cap-rlog [escape ?x ?s ?h ?e ?l ?l ?- ?c ?o ?m ?m ?a ?n ?d return ?R ?l ?o ?g return]) (global-set-key [escape print] 'do-cap-rlog) =20 ;; scrolllock is key-20 (defun grep-this() (interactive) (grep ( concat "~/bin/Grep " (thing-at-point 'word) ) ) ) (global-set-key [key-20] 'grep-this) (defun grep-selected() (interactive) (grep ( concat "~/bin/Grep " (buffer-substring (mark) (point)) ) ) ) (global-set-key [escape key-20] 'grep-selected) =20 ;; pause (global-set-key [pause] 'list-matching-lines) =20 ;;(fset 'do-devcheckup ;; [escape ?x ?s ?h ?e ?l ?l ?- ?c ?o ?m ?m ?a ?n ?d return ?d ?e ?v ?c ?h ?e ?c ?k return ]) (fset 'do-devcheckup [f12 ?\C-a ?\C-k ?d ?e ?v ?c ?h ?e ?c ?k return ]) (global-set-key [escape pause] 'do-devcheckup) =20 ;; control-pause is kp-f1 (fset 'do-devcheckup-update [f12 ?\C-a ?\C-k ?d ?e ?v ?c ?h ?e ?c ?k ? ?- ?u return ]) ;; [escape ?x ?s ?h ?e ?l ?l ?- ?c ?o ?m ?m ?a ?n ?d return ?/ ?m ?a ?s ?t ?e ?r ?/ ?W ?E ?S ?/ ?t ?o ?o ?l ?b ?i ?n ?/ ?d ?e ?v ?c ?h ?e ?c ?k ?u ?p ? ?- ?u return]) (global-set-key [kp-f1] 'do-devcheckup-update) =20 =20 =20 ;; ***************** function keys ****************** ;; 19.25.1 takes [escape f1], will not take [(shift/control f2)], will not take ;; [shift/control f2], will take [S/C-f2] =20 ;; F1 , its hard to get to shift F1 on most pc's ;; (global-set-key [f1] 'compile) =20 ;; alt-F1 is grab to Register=20 (fset 'save-in-reg [?\C-x ?r ?s ]) (global-set-key [\M-f1] 'save-in-reg)=20 =20 (global-set-key [f1] 'help-command) (global-set-key [escape f1] 'save-some-buffers)=20 =20 ;; F2 next error =20 ;; alt-F2 is get from Register x (fset 'get-from-reg [?\C-x ?i ?s ]) (global-set-key [\M-f2] 'get-from-reg)=20 =20 (global-set-key [f2] 'next-error) (global-set-key [f24] 'eval-buffer) ;; control F2 is f24 mapped by xmodmap (global-set-key [S-f2] 'previous-error) (global-set-key [escape f2] 'first-error) ;; (global-set-key [(meta f2)] 'first-error) =20 ;; F3 execute macro (global-set-key [f3] 'query-replace) ;; (global-set-key [f13] 'call-last-kbd-macro) (fset 'rename-filename "wR\C-y") (global-set-key [f13] 'rename-filename) (global-set-key [S-f3] 'save-abbrev) (fset 'my-load-file [escape ?x ?l ?o ?a ?d ?- ?f ?i ?l ?e return ?\C-a ?\C-k ?~ ?/ ?. ?e ?m ?a ?c ?s return]) (global-set-key [escape f3] 'my-load-file) (fset 'javacomp " 2>&1 | sed -e 's/\\[javac\\]//' | sed -e 's/\\(^ *\\)\\(.*\\)/\\2/'") (global-set-key [M-f3] 'javacomp) =20 =20 =20 ;; F4 dired/shell ;; (global-set-key [f4] 'dired-other-window) (global-set-key [f4] 'dired) (global-set-key [f14] 'tracking-shell) ;; (global-set-key [(shift f4)] 'grep) (global-set-key [S-f4] 'shell-command) ;; (global-set-key [(meta f4)] 'dired-do-flagged-delete) (global-set-key [escape f4] 'dired-do-flagged-delete) =20 ;; F5 =20 ;; (fset 'make-for "\C-ifor ( ; ; ) {\C-m}\C-p\C-f\C-f\C-f\C-f") ;; (global-set-key [f5] 'make-for) =20 (fset 'go-to-dired [f4 return]) (global-set-key [f5] 'go-to-dired) =20 (global-set-key [S-f5] 'speedbar) ;; (global-set-key [escape f5] 'reindent-then-newline-and-indent) =20 (defun set-mark-a() (interactive) (bookmark-set "a")) (global-set-key [f15] 'bookmark-set) =20 ;; (fset 'set-mark-at-a "\M-xbookmark-set\C-m") ;; (global-set-key [C-f5] 'set-mark-at-a) =20 ;; (fset 'switch-buffers-to "\C-x\C-b\C-xn") ;; (global-set-key [escape f5] 'switch-buffers-to) =20 (fset 'get-buffer-list [?\C-x ?b ?* ?B ?u ?f ?f ?e ?r ? ?L ?i ?s ?t ?* return ?\C-x ?\C-b]) (global-set-key [escape f5] 'get-buffer-list) =20 ;; F6 =20 ;; (fset 'make-if "\C-iif ( ) {\C-m}\C-p\C-f\C-f\C-f") ;; (fset 'make-if "\C-iif ( ) {\C-m}\C-p\C-f\C-f\C-f") (fset 'comment-out "// \C-a\C-n") (defun paste-line() (interactive) (save-excursion (beginning-of-line) (let ((beg (point))) (end-of-line) (copy-region-as-kill beg (point)) ) ) ) (global-set-key [f6] 'comment-out) (global-set-key [S-f6] 'paste-line) (global-set-key [f16] 'bookmark-jump) (global-set-key [escape f6] 'find-name-dired) =20 ;; F7 else if () { } (defun paste-word() (interactive) (save-excursion (backward-word 1) (let ((beg (point))) (forward-word 1) (copy-region-as-kill beg (point)) ) ) ) (fset 'do-shell-comment "\C-a# \C-a\C-n") ;; (fset 'make-elseif ;; " else if ( ) {\C-m}\C-p\C-f\C-f\C-f\C-f\C-f\C-f\C-f\C-f\C-f\C-f") (global-set-key [f7] 'do-shell-comment) ;;(global-set-key [(control f7)] 'indent-for-comment) (global-set-key [f17] 'list-matching-lines) ;; (global-set-key [escape f7] 'make-elseif) (global-set-key [S-f7] 'paste-word) (global-set-key [escape f7] 'reportfile) =20 =20 ;; F8 switch ;;(fset 'makeswitch ;; "switch () {\C-m\C-mdefault:\C-mbreak;\C-m}\C-p\C-p\C-p\C-p\C-f\C-f\C-f\C-f\C-f\C-f \C-f \C-b") (global-set-key [f8] 'new-frame-left) (global-set-key [f18] 'shrink-window) (global-set-key [S-f8] 'move-frame-left) (global-set-key [escape f8] 'grep) ;; (global-set-key [(shift f8)] 'enlarge-window) ;; (global-set-key [(meta f8)] 'new-frame-left) ;; (global-set-key [escape f8] 'makeswitch) =20 =20 =20 ;; F9 case (fset 'make-case "case :\C-m\C-mbreak;\C-p\C-p\C-b\C-b ") ;; (global-set-key [f9] 'new-frame-right) ;; (global-set-key [f9] 'new-frame-center) (global-set-key [f9] 'other-frame) (global-set-key [f19] 'enlarge-window) ;; (global-set-key [control f9] 'make-case) (global-set-key [S-f9] 'move-frame-right) (global-set-key [escape f9] 'find-name-dired) =20 ;;(fset 'apigrep ;; [escape ?x ?g ?r ?e ?p return backspace backspace backspace backspace backspace backspace backspace backspace backspace backspace backspace ?a ?p ?i ?g ?r ?e ?p ? \C-u \C-x q ]) ;; (global-set-key [escape f9] 'apigrep) =20 =20 =20 =20 =20 ;; F10 =20 (global-set-key [f10] 'new-frame-right) ;; (global-set-key [f10] 'grep) ;; f20 is control-f10 -- rcf is rereadfile (global-set-key [f20] 'rof) (fset 'make-block-body "{\C-m}\C-p") ;; (global-set-key [escape f10] 'make-block-body) (global-set-key [escape f10] 'not-modified) (global-set-key [S-f10] 'delete-line) =20 =20 =20 ;; F11=20 (fset 'grep-Grep [escape ?x ?g ?r ?e ?p return backspace backspace backspace backspace backspace backspace backspace backspace backspace backspace backspace ?/ ?h ?o ?m ?e ?/ ?f ?r ?e ?d ?s ?/ ?b ?i ?n ?/ ?G ?r ?e ?p ? \C-u \C-x q ]) (global-set-key [f11] 'grep-Grep) =20 (global-set-key [(control f11)] 'delete-frame) (global-set-key [S-f11] 'dup-line) (global-set-key [escape f11] 'find-tag-other-window) ;; (global-set-key [f11] 'find-file-other-frame) ;; (global-set-key [C-f11] 'dired-other-frame) =20 ;; F12 compile (global-set-key [f12] 'compile) ;; (global-set-key [f12] 'rec) (global-set-key [S-f12] 'call-last-kbd-macro) ;; (global-set-key [(control f12)] 'other-frame) ;; control F12 does not work due to quirk in reflection x ;; (fset 'find-next-alternative "\C-u1\M-.") ;; (global-set-key [(control f12)] 'find-next-alternative) (global-set-key [escape f12] 'ediff-buffers) ;; (global-set-key [(control f12)] 'compile) ;; (global-set-key [S-f12] 'compile) =20 ;; F36 is F12 on sun keyboard ;; (global-set-key [f36] 'compile) ;; (global-set-key [(control f36)] 'other-frame) =20 =20 =20 ;; old function key stuff =20 ;; F9 compile ;;(global-set-key "\C-xal" 'compile) ;; F10 locate next error=20 ;;(global-set-key "\C-xam" 'next-error) =20 ;; F8 comment ;;(fset 'new-comment "\M-;\C-a\C-i\C-f\C-f\C-f") ;;(fset 'new-comment "\C-a\C-i/* */\C-a\C-i\C-f\C-f\C-f") ;;(global-set-key "\C-xad" 'new-comment) =20 ;; F5 comment to right ;;(fset 'new-comment "\C-a\C-i/* */\C-a\C-i\C-f\C-f\C-f") ;;(fset 'new-forward-comment "\C-t/* */\C-b\C-b\C-b\C-b") ;;(global-set-key "\C-xaf" 'new-forward-comment) =20 =20 =20 =20 =20 =20 =20 =20 =20 ;; this stuff is for xemacs ;; (custom-set-variables) ;;(custom-set-faces ;; '(red ((t (:foreground "red" :background "white"))) t) ;; '(blue ((t (:foreground "blue"))) t) ;; '(highlight ((t (:foreground "black"))) t)) ;; )) ;; Options Menu Settings ;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ;;(cond ;; ( ;; (and (string-match "XEmacs" emacs-version) ;; (boundp 'emacs-major-version) ;; (or (and ;; (=3D emacs-major-version 19) ;; (>=3D emacs-minor-version 14)) ;; (=3D emacs-major-version 20)) ; (fboundp 'load-options-file) ;; ) ;; (load-options-file "/h/USERS/global/fsieber/.xemacs-options") ;; ) ;;) ;; = =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D ;; End of Options Menu Settings =20 =20 =20 ;; this is old stuff mess with frame arguments ;; (setq frame-initial-geometry-arguments '((user-position . t) (user-size . t) ;; (height . 54) (width . 81) (top . 0) (left . -) ;; (height . 65) (width . 90) (top . 0) (left . 0)) ) ;; (setq default-frame-plist '(width 70 height 86 top 0 left 0) ) ;; (setq default-x-frame-plist '(width 70 height 86 top 0 left 0) ) =20 ;; (setq default-frame-plist '((width.89) (height.59) (top.0) (left.-) ) ;; (setq default-frame-alist '((width.89) (height.59) (top.0) (left.-) ) =20 =20 ;; this is done inside cond below, so dont do it here ; (setq default-frame-plist '((horizontal-scroll-bar . f) (vertical-scroll-bar . f) (minibuffer . t) (user-position . t) (user-size . t) (height . 61) (width . 90) (top . 0) (left - 0) (cursor-color . "yellow") (mouse-color . "yellow") (foreground-color . "white") (background-color . "Dark Green") (font . "6x10")) ) ; (setq default-frame-alist '((horizontal-scroll-bar . f) (vertical-scroll-bar . f) (minibuffer . t) (user-position . t) (user-size . t) (height . 61) (width . 90) (top . 0) (left - 0) (cursor-color . "yellow") (mouse-color . "yellow") (foreground-color . "white") (background-color . "Dark Green") (font . "6x10")) ) =20 =20 =20 =20 =20 ;; (fset 'grab-struct ;; [?\C-a ?\C-s ?} ?\C-e escape ?w ?\C-r ?{ ?\C-a]) =20 ;; (global-set-key [escape f6] 'grab-struct) =20 =20 =20 ;; (fset 'delete-struct ;; [?\C-a ?\C-s ?{ ?\C-b ?\C- ?\C-s ?} ?\C-b ?\C-f ?\C-w ?\C-p ?\C-n ?\C-a]) =20 ;; (global-set-key [escape f7] 'delete-stru ct) =20 =20 =20 =20 =20 ;; dired extensions ****************************************** =20 (add-hook 'dired-mode-hook '(lambda () (define-key dired-mode-map [f5] 'dired-up-directory) =20 )) =20 =20 =20 =20 =20 =20 =20 =20 =20 =20 =20 =20 =20 =20 =20 =20 =20 =20 =20 =20 ------_=_NextPart_001_01C46074.31359E35 Content-Type: text/html; charset="us-ascii" Content-Transfer-Encoding: quoted-printable Message
To: bug-gnu-emacs@gnu.org
Subjec= t: Size=20 Position of First Window
--text follows this line--
This bug = report will=20 be sent to the Free Software Foundation,
not to your local site=20 managers!
Please write in English, because the Emacs maintainers do = not=20 have
translators to read other languages for them.
 
Your bug report will be posted to the = bug-gnu-emacs@gnu.org mailing=20 list,
and to the gnu.emacs.bug news group.
 
In GNU Emacs 21.2.1 (i686-pc-cygwin, X=20 toolkit)
 of 2004-03-22 on cm-test
configured using = `configure =20 --prefix=3D/usr --bindir=3D/usr/bin --sysconfdir=3D/etc = --libexecdir=3D/usr/sbin=20 --localstatedir=3D/var --datadir=3D/usr/share = --infodir=3D/usr/share/info=20 --mandir=3D/usr/share/man --without-toolkit-scroll-bars'
Important=20 settings:
  value of $LC_ALL: nil
  value of = $LC_COLLATE:=20 nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES:=20 nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: = nil
  value of $LC_TIME: nil
  value of $LANG: = nil
 =20 locale-coding-system: nil
  default-enable-multibyte-characters: = t
 
Please describe exactly what actions = triggered the=20 bug
and the precise symptoms of the bug:
 
Although the below=20 methods work for all but the first frame created, the = first
frame = of the program=20 never quite turns out the way it should in size and=20 position.
The = intent is to=20 place the frame on the right half of the screen.   The=20 program
seems = to make final=20 adjustments so that you do not get the geometry that = your
specified.  You=20 cant even compensate for it by trying to adjust your=20 requested
geometry to=20 compensate for the adjustment the program makes.  There=20 is
no = control over=20 it.
 
The = intended=20 geometry is for a 1200x1600 pixel display.
The x = position=20 should be 800 for this, the 830 was an attempt to = compensate
for = the adjustment=20 the program made,  but this adjustment is unsuccessful=20 also.
 
Please = excuse by=20 obfuscated lisp, but I do not think that is the = problem.
 
 
Start = up function=20 used:

 
 
function er () {
   =20 font=3D'9x15bold'
#     = geometry=3D'86x76-0+0'
# adust for=20 brain damaged emacs 21.x, add 4 to height, off center by 10=20 pixels
#     = geometry=3D'85x80+820+0'
   =20 geometry=3D'85x75+830+0'
    background=3D'Dark=20 Green'
    foreground=3D'white'
   =20 cursor=3D'yellow'
    if [ $# -gt 0 =20 ]
    then
    emacs -g = $geometry  -g.f=20 $geometry  -fn $font -fn.f $font -bg "$background" -bg.f = "$background" -fg=20 "$foreground"  -fg.f "$foreground" -cr $cursor $1 --debug-init=20 &
    else
    emacs -g = $geometry =20 -g.f $geometry  -fn $font -fn.f $font -bg "$background" -bg.f = "$background"=20 -fg "$foreground"  -fg.f "$foreground" -cr $cursor --debug-init=20 &
    fi
}
 
.emacs = file:
 
; = after editing load=20 this file with the load-file command
 
;; = uncommend below=20 to deug
;; (setq debug-on-error 'a)
;; (setq debug-on-error = 'a)
;; this=20 is for xemacs  20.0,  suns, etc
;; (set-toolbar=20 nil)
 
;; = (scroll-bar-mode=20 -1)
;; (tool-bar-mode -1)
 
 
 
;; = ************* set=20 my-font, my-height my-width
;; pickup -f smallfonts in command line = to mean=20 use a smaller font
;; (defun smallfonts () 
;; ( if  ( = member=20 "smallfonts" command-line-args )
;;      ( = progn=20 (setq my-font "6x10")  (setq my-height 76)  (setq my-width 91) = )
;;      ( progn (setq my-font = "6x13")  (setq=20 my-height 64)  (setq my-width 91) )
;; ) )
;;=20 (smallfonts)
 

;; small fonts
;; (setq my-font "6x10")  (setq = my-height=20 76)  (setq my-width 91)
;; (setq my-font "7x15")  (setq = my-height=20 88)  (setq my-width 84)
 

;; (setq mode-line-buffer-identification "%12b %12f")
 
 
 
;;  *******************************mode line
(setq=20 default-mode-line-format (list=20 "-"
 'mode-line-mule-info
 'mode-line-modified=20
 '(line-number-mode "=20 >L%l<")
 'mode-line-frame-identification
  "%b %f" = " "=20 (getenv "HOST") "-" (getenv "LOGNAME")
 'global-mode-string =
 =20 "- %[("
 'mode-name
 'mode-line-process=20
 'minor-mode-alist
  "%n"=20 ")%]--"
 '(which-func-mode  ("" which-func-format "--")=20 )
 '(column-number-mode "C%c--")
 '(-3 . "%p")
  = "-%-"=20 )  )
 
(add-hook 'c-mode-hook '(lambda () {
(setq mode-line-format = (list=20 "-"
 'mode-line-mule-info
 'mode-line-modified=20
 'mode-line-frame-identification
  "%b-%f" "-" (getenv = "HOST")=20 "-" (getenv "LOGNAME")
 'global-mode-string
  = "  =20 %[("
 'mode-name
 'mode-line-process=20
 'minor-mode-alist
  "%n"=20 ")%]--"
 '(which-func-mode  ("" which-func-format "--")=20 )
 '(line-number-mode "-L%l--")
 '(column-number-mode=20 "C%c--")
 '(-3 . "%p")
  "-%-" )  ) )  )
 
; (add-hook 'dired-mode-hook '(lambda () {
; (setq = mode-line-format=20 (list "-"
;   "%b %f" "   " (getenv "HOST") = "  "=20 (getenv "USER")
; 'mode-name
;  )  ) )  )
 
; (add-hook 'dired-mode-hook '(lambda () {
; (setq = mode-line-format=20 (list "-"
; 'mode-line-mule-info
; 'mode-line-modified
;=20 'mode-line-frame-identification
;  "%b %f" "   " = (getenv=20 "HOST") "  " (getenv "USER")
; 'global-mode-string
; =20 "   %[("
; 'mode-name
; 'mode-line-process
;=20 'minor-mode-alist
;  "%n" ")%]--"
; '(which-func-mode  = (""=20 which-func-format "--") )
; '(-3 . "%p")
;  "-%-" )  ) = ) =20 )
 
 
 

;; **************look in ~/emacs
(add-to-list 'load-path=20 (expand-file-name "~/emacs"))
 
 
 

;; ***************************for cmushell and multi-shell=20 (tracking-shell)
;; this shell does a cd to the directory the shell = was=20 invoked from
; (add-to-list 'load-path (expand-file-name=20 "~/emacs/cmushell"))
; (autoload 'tracking-shell "multi-shell" nil = t)
;=20 (autoload 'cmushell "cmushell" nil t)
; (load-file=20 "~/emacs/cmushell/comint.el")
 
 
 
;; ********************for ange-ftp, could not get it to work for=20 lisp-dir-apropos
;; (load-file=20 "/home/jeffb/local/share/emacs/20.6/lisp/ange-ftp.el");
;; (setq=20 ange-ftp-gateway-ftp-program-name "/usr/bin/rftp")
;; (setq=20 ange-ftp-smart-gateway t)
 
 
 
;; *************************for lispdir.el
;; (autoload=20 'format-lisp-code-directory "~/emacs/lispdir" nil t)
;; (autoload=20 'lisp-dir-apropos "~/emacs/lispdir" nil t)
;; (autoload = 'lisp-dir-retrieve=20 "~/emacs/lispdir" nil t)
;; (autoload 'lisp-dir-verify = "~/emacs/lispdir" nil=20 t)
;;
 

;; ***********************************find-dired INSTALLATION =
;;=20 19.25 dired extensions,  like F//  key to view all marked = files
;;=20 (load-file = "/home/jeffb/local/share/emacs/20.6/lisp/dired-x.elc");
(load-file=20 "/usr/share/emacs/21.2/lisp/dired-x.elc");
(load-file=20 "/usr/share/emacs/21.2/lisp/dired-aux.elc");
 
 
 
;; ************************************for rcs check in check = out
;;=20 (load-file "~/vc.el");
(load-file=20 "/usr/share/emacs/21.2/lisp/vc.elc");
(load-file=20 "/usr/share/emacs/21.2/lisp/vc-rcs.elc");
 
 
 
;; ************************************ for windows follow = mouse
;;=20 (load-file "~/emacs/follow-mouse.el");
;; = (turn-on-follow-mouse)
;; for=20 wheel mouse - reflection x does not support
;; (load-file=20 "~/emacs/mwheel.el");
 
 
 
;;  ********************************* java jde
 
;; for jde/semantic related stuff
;; (add-to-list 'load-path=20 (expand-file-name "~/emacs/jde/jde-2.2.6/lisp"))
;; (add-to-list = 'load-path=20 (expand-file-name "~/emacs/jde/eieio-0.16"))
;; (add-to-list = 'load-path=20 (expand-file-name "~/emacs/jde/elib-1.0"))
;; (add-to-list 'load-path = (expand-file-name "~/emacs/jde/speedbar-0.13a"))
;; (add-to-list = 'load-path=20 (expand-file-name "~/emacs/jde/semantic-1.3.3"))
 
;; for semantic
;;(require 'senator)
;;(require 'semantic-c) = ; for C=20 code integration
;;(require 'semantic-el) ; for Emacs Lisp code=20 integration
;;(require 'semantic-make) ; for Makefile=20 integration
;;(require 'semantic-imenu) ; if you use imenu or=20 wich-function
;;(add-hook 'speedbar-load-hook (lambda () (require=20 'semantic-sb)))
   ; for speedbar integration
;; = (autoload=20 'semantic-bnf-mode "semantic-bnf" "Mode for Bovine Normal Form." = t)
;;=20 (add-to-list 'auto-mode-alist '("\\.bnf$" = .=20 semantic-bnf-mode))
   ; for editing .bnf parser=20 files.
;;(autoload 'semantic-minor-mode "semantic-mode" "Mode = managing=20 semantic parsing." t)
   ; for = semantic-minor-mode
 
;; more for jde
;; (require 'jde)
 
 
 
;; ***************** auto modes ******************
 
;; auto mode .c .h to c++ mode
(setq  auto-mode-alist = '(("\\.te?xt\\'" .=20 text-mode)
          = ;            =   =20 ("\\.c\\'" .=20 c++-mode)
          =             &= nbsp; =20 ("\\.h\\'" .=20 c++-mode)
          =             &= nbsp; =20 ("\\.idl\\'" .=20 c++-mode)
          =             &= nbsp; =20 ("\\.tex\\'" .=20 tex-mode)
          =             &= nbsp; =20 ("\\.ltx\\'" . latex-mode) ("\\.el\\'" .=20 emacs-lisp-mode)
         = ;            =    =20 ("\\.mm\\'" . nroff-mode) ("\\.me\\'" .=20 nroff-mode)
         &nbs= p;            = ;  =20 ("\\.ms\\'" . nroff-mode) ("\\.man\\'" .=20 nroff-mode)
         &nbs= p;            = ;  =20 ("\\.scm\\'" . scheme-mode) ("\\.l\\'" .=20 lisp-mode)
          = ;            =   =20 ("\\.lisp\\'" . lisp-mode) ("\\.f\\'" .=20 fortran-mode)
         &n= bsp;           &nb= sp;  =20 ("\\.F\\'" . fortran-mode) ("\\.for\\'" .=20 fortran-mode)
         &n= bsp;           &nb= sp;  =20 ("\\.p\\'" . pascal-mode) ("\\.pas\\'" .=20 pascal-mode)
         &nb= sp;           &nbs= p;  =20 ("\\.mss\\'" . scribe-mode) ("\\.ad[abs]\\'" .=20 ada-mode)
          =             &= nbsp; =20 ("\\.icn\\'" . icon-mode) ("\\.pl\\'" .=20 perl-mode)
          = ;            =   =20 ("\\.pm\\'" . perl-mode) ("\\.cc\\'" .=20 c++-mode)
          =             &= nbsp; =20 ("\\.hh\\'" . c++-mode) ("\\.C\\'" .=20 c++-mode)
          =             &= nbsp; =20 ("\\.H\\'" . c++-mode) ("\\.cpp\\'" .=20 c++-mode)
          =             &= nbsp; =20 ("\\.cxx\\'" . c++-mode) ("\\.hxx\\'" .=20 c++-mode)
          =             &= nbsp; =20 ("\\.c\\+\\+\\'" . c++-mode) ("\\.h\\+\\+\\'" .=20 c++-mode)
          =             &= nbsp; =20 ("\\.java\\'" . java-mode) ("\\.mk\\'" .=20 makefile-mode)
         &= nbsp;           &n= bsp;  =20 ("\\(M\\|m\\|GNUm\\)= akefile\\(.in\\)?\\'"=20 .=20 makefile-mode)
         &= nbsp;           &n= bsp;  =20 ("\\.texinfo\\'" . texinfo-mode) = ("\\.te?xi\\'" .=20 texinfo-mode)
         &n= bsp;           &nb= sp;  =20 ("\\.s\\'" . asm-mode) ("\\.S\\'" .=20 asm-mode)
          =             &= nbsp; =20 ("\\.asm\\'" . asm-mode) = ("ChangeLog\\'" .=20 change-log-mode)
         = ;            =    =20 ("change.log\\'" .=20 change-log-mode)
         = ;            =    =20 ("changelso\\'" .=20 change-log-mode)
         = ;            =    =20 ("ChangeLog.[0-9]+\\'" .=20 change-log-mode)
         = ;            =    =20 ("\\$CHANGE_LOG\\$\\.TXT" = .=20 change-log-mode)
         = ;            =    =20 ("\\.scm\\.[0-9]*\\'" .=20 scheme-mode)
         &nb= sp;           &nbs= p;  =20 ("\\.[ck]?sh\= \'\\|\\.shar\\'\\|/\\.z?profile\\'"=20 .=20 sh-mode)
          &= nbsp;           &n= bsp; =20 ("/\\.\\(bash_profile\\|z?login\\|bash_login\\|z?logout\\)\\'" .=20 sh-mode)
          &= nbsp;           &n= bsp; =20 ("/\\.\\(bash_logout\\|[kz]shrc\\|bashrc\\|t?cshrc\\|esrc\\)\\'" .=20 sh-mode)
          &= nbsp;           &n= bsp; =20 ("/\\.\\([kz]shenv\\|xinitrc\\|startxrc\\|xsession\\)\\'" .=20 sh-mode)
          &= nbsp;           &n= bsp; =20 ("\\.[12345678]\\'" . sh-mode) = ("\\.TeX\\'" .=20 tex-mode)
          =             &= nbsp; =20 ("\\.sty\\'" . latex-mode) ("\\.cls\\'" .=20 latex-mode)
         &nbs= p;            = ;  =20 ("\\.bbl\\'" . latex-mode) ("\\.bib\\'" .=20 bibtex-mode)
         &nb= sp;           &nbs= p;  =20 ("\\.article\\'" . text-mode) ("\\.letter\\'" .=20 text-mode)
          = ;            =   =20 ("\\.tcl\\'" . tcl-mode) ("\\.exp\\'" .=20 tcl-mode)
          =             &= nbsp; =20 ("\\.itcl\\'" . tcl-mode) ("\\.itk\\'" .=20 tcl-mode)
          =             &= nbsp; =20 ("\\.f90\\'" . f90-mode) ("\\.lsp\\'" .=20 lisp-mode)
          = ;            =   =20 ("\\.awk\\'" . awk-mode) ("\\.prolog\\'" .=20 prolog-mode)
         &nb= sp;           &nbs= p;  =20 ("\\.tar\\'" .=20 tar-mode)
          =             &= nbsp; =20 ("\\.\\(arc\\|zip\\|lzh\\= |zoo\\)\\'"=20 .=20 archive-mode)
         &n= bsp;           &nb= sp;  =20 ("\\.\\(ARC\\|ZIP\\|LZH\\= |ZOO\\)\\'"=20 .=20 archive-mode)
         &n= bsp;           &nb= sp;  =20 ("\\`/tmp/Re" . text-mode) = ("/Message[0-9]*\\'"=20 .=20 text-mode)
          = ;            =   =20 ("/drafts/[0-9]+\\'" .=20 mh-letter-mode)
         =             &= nbsp;  =20 ("\\`/tmp/fol/" . text-mode) ("\\.y\\'" .=20 c-mode)
          &n= bsp;           &nb= sp; =20 ("\\.lex\\'" . c-mode) ("\\.oak\\'" .=20 scheme-mode)
         &nb= sp;           &nbs= p;  =20 ("\\.sgml?\\'" . sgml-mode) ("\\.dtd\\'" .=20 sgml-mode)
          = ;            =   =20 ("\\.s?html?\\'" .=20 html-mode)
          = ;            =   =20 ("[]>:/]\\..*emacs\\'" .=20 emacs-lisp-mode)
         = ;            =    =20 ("[:/]_emacs\\'" . emacs-lisp-mode) ("\\.ml\\'" .=20 lisp-mode)) )
 
;           &= nbsp;           &n= bsp; =20 ("\\.[12345678]\\'" . = nroff-mode) ("\\.TeX\\'" . tex-mode)
 
 
 
;; ****************** shell tracker
;; (eval-after-load "shell" = '(load=20 "shellt"))
;; this does not seem to work
 
 
 
;; ***************html extensions
;;; need to preset = auto-mode-alist=20 here, this may be too old
 
;; (load-file "~/emacs/html32-mode.el")
;;  (autoload = 'html32-mode=20 "html32-mode" "HTML major mode." t)
;;  (or (assoc "\\.html$" = auto-mode-alist)
;;   =20 (setq auto-mode-alist (cons '("\\.html$" = .=20 html32-mode)=20
;;           &= nbsp;           &n= bsp;       =20 auto-mode-alist)))
;;  (or (assoc "\\.shtml$" = auto-mode-alist)
;;   (setq=20 auto-mode-alist (cons '("\\.shtml$" .=20 html32-mode)=20
;;           &= nbsp;           &n= bsp;      =20 auto-mode-alist)))
;;  (or (assoc "\\.htm$"=20 auto-mode-alist)
;;    (setq auto-mode-alist (cons = '("\\.htm$" . html32-mode)=20
;;           &= nbsp;           &n= bsp;       =20 auto-mode-alist)))
 

;; add my own modifications to html32
 
(defun html32-add-blockquote ()
   "Add <br>=20 "
   (interactive)
   (insert "<br>") = )
 
;; To use this file, byte-compile it, install it somewhere in = your
;;=20 load-path, and put:
;;;; this line crashed emacs 20.3
;; (autoload = 'find-dired "find-dired" nil t)
;; (autoload 'find-name-dired = "find-dired"=20 nil t)
;; (autoload 'find-grep-dired "find-dired" nil t)
;; in = your=20 ~/.emacs, or site-init.el, etc.
;; To bind it to a key, put,=20 e.g.:
;;
;; (global-set-key "\C-cf" 'find-dired)
;; = (global-set-key=20 "\C-cn" 'find-name-dired)
;; (global-set-key "\C-cl"=20 'find-grep-dired)
;;
;; in your ~/.emacs.
;;; Code
;; (defun = printcar (a)  (print a '"#<buffer special>"))
(setq = arg0 =20 (nth 0 command-line-args))
(setq arg1  (nth 1 = command-line-args))
;;=20 (mapcar 'printcar command-line-args)
;; defun findarg (a) ( ( = cond  ( (=20 eq ( car a ) '1 )  (setq foundarg 1) ) ) ) )
;; (defun findarg = (a) =20 ( cond (  (string=3D a "emacs" )  ( setq foundarg 1 ) )  = (t (setq=20 foundarg 0 ) ) )  )
;; (mapcar 'findarg '((1 2) (2 3) (3 = 4)))
;;=20 (mapcar 'findarg command-line-args)
 
 
 
;; *********************** ksh extensions
 
;; for ksh-mode
(autoload 'ksh-mode "ksh-mode" "Major mode for = editing=20 sh Scripts." t)
 
  (setq = auto-mode-alist
      =20 (append auto-mode-alist
       =20 (list
         = '("\\\\.sh$" .=20 ksh-mode)
        =20 '("\\\\.ksh$" .=20 ksh-mode)
          =      =20 '("\\\\.bashrc" .=20 ksh-mode)
          =      =20 '("\\\\..*profile" . ksh-mode))))
 
  (setq=20 ksh-mode-hook
       (function (lambda=20 ()
          = (font-lock-mode=20 1)            = ; ;;=20 font-lock the = buffer
         =20 (setq ksh-indent 4)
   (setq ksh-group-offset = -4)
  =20 (setq ksh-brace-offset -4)  =20
          (setq=20 ksh-tab-always-indent=20 t)
          (setq=20 ksh-match-and-tell t)
    (setq ksh-case-item-offset=20 2)
   (setq ksh-case-indent=20 nil)
          (setq=20 ksh-align-to-keyword t) ;; Turn on keyword = alignment
  =20 )))
 
 
 
;; *********************** python extensions
 
;; (load-file "~/emacs/python-mode.el")
 
;; (or (assoc "\\.py$"=20 auto-mode-alist)
;;   (setq auto-mode-alist (cons '("\\.py$" . python-mode)=20
;;           &= nbsp;           &n= bsp;      =20 auto-mode-alist)))
;;(setq interpreter-mode-alist
;;   = (cons=20 '("python" . = python-mode)
;;       =20 interpreter-mode-alist))
 
;; (autoload 'python-mode "python-mode" "Python editing mode." = t)
 
 
 

;;; *************** locate any font or geometry bg arguments = and use=20 them
(setq foundgeom 'nil)
(setq foundheight 'nil)
(setq = foundwidth=20 'nil)
(setq foundfont 'nil)
(setq foundbg 'nil)
(setq foundfg=20 'nil)
 
;; (setq foundgf 'nil)
;;(setq foundgfcdr 'nil)
 

(setq args command-line-args)
( while (not  (eq 'nil = args))=20
  ( cond
   
    (  = (string=3D=20 (car args) "-fn.f" )
       (setq = args2 (cdr=20 args))
       (if (not (eq 'nil=20 args2))
    (setq foundfont (car args2) )
 =20 )
       )
   =20
    (  (string=3D (car args) "-g.f"=20 )
      =20 ;;         (setq foundgf=20 "hello")
      =20 ;;         (setq foundgfcdr (cdr = args))
      =20
       (setq args2 (cdr=20 args))
       (if (not (eq 'nil=20 args2))
    (progn
      = (setq=20 foundgeom (car args2) )
      (setq index=20 0)
      ( while  (not ( char-equal = (elt=20 foundgeom index) ?x ) )
        = (setq=20 foundwidth  (concat = foundwidth
      =20 (char-to-string
        (elt = foundgeom=20 index))))
        (setq index(1+ = index))=20 )
      (setq index(1+ index))=20
      ( while  (not (or (char-equal = (elt=20 foundgeom index) ?+ ) =20
          (char-equal = (elt=20 foundgeom index) ?- ) ) )
        = (setq=20 foundheight  (concat foundheight =20 (char-to-string
         =   =20 (elt foundgeom index))) )
        = (setq=20 index(1+ index)) )
      )
  =
 =20 )
       )
   =20
    (  (string=3D (car args) "-bg.f" )=20
       (setq args2 (cdr=20 args))
       (if (not (eq 'nil=20 args2))
    (setq foundbg (car args2) )
 =20 )
       )
   =20
    (  (string=3D (car args) "-fg.f" )=20
       (setq args2 (cdr=20 args))
       (if (not (eq 'nil=20 args2))
    (setq foundfg (car args2) )
 =20 )
       )
   =20
   
    )
  (setq args = (cdr args)=20 )
  )
 
(when (not (eq foundheight 'nil))
      = (setq=20 foundheight (string-to-int foundheight)) =
     =20 (setq foundheight  (- foundheight 3)  )
  )
(if = (not (eq=20 foundwidth 'nil))
    (setq foundwidth (string-to-int=20 foundwidth))
  )
 
 
 
 
 
;; ******************customization set by menu
 
(custom-set-variables
  ;; custom-set-variables was added = by Custom=20 -- don't edit or cut/paste it!
  ;; Your init file should = contain only=20 one such instance.
 '(automatic-hscrolling=20 nil)
 '(dired-free-space-program = 'nil)
 '(global-hl-line-mode t=20 nil (hl-line))
 '(ls-lisp-emulation (quote=20 UNIX))
 '(ls-lisp-dirs-first t)
 '(ls-lisp-verbosity = (quote (uid=20 gid)))
 '(scroll-bar-mode nil)
 '(tool-bar-mode nil nil=20 (tool-bar)))
(custom-set-faces
  ;; custom-set-faces was = added by=20 Custom -- don't edit or cut/paste it!
  ;; Your init file should = contain=20 only one such instance.
 '(font-lock-comment-face ((t = (:foreground=20 "salmon"))))
 '(highlight ((((class color) (background dark))=20 (:background "slate grey"))))
;;  '(highlight ((((class color)=20 (background dark)) (:background "darkolivegreen"))))
 '(fringe = ((t=20 (:background "dark green" :foreground "grey")))))
 
(setq ls-lisp-emulation (quote UNIX)) 
 
;; after editing load this file with the load-file command
 
(setq dired-free-space-program 'nil)
 
;; this is for xemacs  20.0,  suns, etc
;; = (set-toolbar=20 nil)
 
(scroll-bar-mode -1)
(tool-bar-mode -1)
 

;; ******************after getting arguments, use them in=20 customization
 
;;  ****************************** version stuff
;; = indicate if=20 running xemacs
(defvar running-xemacs (string-match "XEmacs\\|Lucid"=20 emacs-version))
 
 
 
;; Pickup emacs version
; Older versions of emacs did not have = these=20 variables
; (emacs-major-version and emacs-minor-version.)
; Let's = define=20 them if they're not around, since they make
; it much easier to=20 conditionalize on the emacs version.
(if (and (not (boundp=20 'emacs-major-version))
        = ;=20 (string-match "^[0-9]+" emacs-version))
    (setq=20 emacs-major-version
        &n= bsp;=20 (string-to-int (substring=20 emacs-version
         &n= bsp;           &nb= sp;           &nbs= p; =20 (match-beginning 0) (match-end 0)))))
(if (and (not (boundp=20 'emacs-minor-version))
        = ;=20 (string-match "^[0-9]+\\.\\([0-9]+\\)" = emacs-version))
   =20 (setq=20 emacs-minor-version
        &n= bsp;=20 (string-to-int (substring=20 emacs-version
         &n= bsp;           &nb= sp;           &nbs= p; =20 (match-beginning 1) (match-end 1)))))
 
; Define a function to make it easier to check which version = we're
;=20 running.
(defun running-emacs-version-or-newer (major = minor)
  (or=20 (> emacs-major-version major)
      (and = (=3D=20 emacs-major-version=20 major)
           = (>=3D=20 emacs-minor-version minor))))
 
 
 

;;  ***********************frame size stuff
( cond =
 
;; for versions 19.30 and later
      ( = (=20 running-emacs-version-or-newer 19 30 = )       =20
 
;; initial values for default-frame-plist
;; (setq=20 default-frame-plist  '((horizontal-scroll-bar . t)
;;=20         (vertical-scroll-bar .=20 t)
;;           = ;            =       =20 (minibuffer . t) (user-position .=20 t)
;;           = ;            =       =20 (user-size .=20 f)
;;           = ;            =       =20 (user-font . t=20 )
;;           =             &= nbsp;     =20 (height . 60) (width . 90)
;; =         (top=20 . 0) (left -=20 0)
;;           = ;            =       =20 (cursor-color . "yellow") (mouse-color .=20 "yellow")
;;         &nbs= p;            = ;       =20 (foreground-color .=20 "white")
;;          = ;            =        =20 (background-color . "Dark=20 Green")
;;          =             &= nbsp;      =20 (font . "6x10")
;;  ) )
;; ;; now modify according to font=20 selection
;; (setcdr  (assoc 'font default-frame-plist) = foundfont)
;;=20 (setcdr  (assoc 'height default-frame-plist) foundheight)
;;=20 (setcdr  (assoc 'width default-frame-plist) foundwidth)
;; = (setcdr =20 (assoc 'foreground-color default-frame-plist foundfg)
;; = (setcdr  (assoc=20 'background-color default-frame-plist foundbg)
 

;; initial values for default-frame-alist,  same as = plist
(setq=20 default-frame-alist  '((horizontal-scroll-bar .=20 f)
           &= nbsp;           &n= bsp;    =20 (tool-bar . f )
       =20 (vertical-scroll-bar . f)
       =20 (minibuffer . t) (user-position .=20 t)
        (user-size .=20 f)
        (user-font .=20 t)
        (height . 76) (width . = 85) (top=20 . 0) (left - 0)
        = (cursor-color .=20 "yellow") (mouse-color . = "yellow")
       =20 (foreground-color . = "white")
       =20 (background-color . "Dark = Green")
       =20 (font .=20 "6x10")
          &n= bsp;           &nb= sp;     =20 ) )
;; now modify according to font selection
(if (not (eq = foundfont=20 'nil))   (setcdr  (assoc 'font default-frame-alist) = foundfont)=20 )
(if (not (eq foundheight 'nil)) (setcdr  (assoc 'height=20 default-frame-alist) foundheight) )
(if (not (eq foundwidth = 'nil)) =20 (setcdr  (assoc 'width default-frame-alist) foundwidth) )
(if = (not (null=20 foundfg))        (setcdr  (assoc = 'foreground-color default-frame-alist) foundfg) )
(if (not (null=20 foundbg))        (setcdr  (assoc = 'background-color default-frame-alist) foundbg) )
 
 
 
;; defun for new frame on right,   1st do plist, then=20 alist
(defun new-frame-right() (interactive)
;;   (setq=20 default-frame-plist  '((horizontal-scroll-bar . f)
;;=20           = (vertical-scroll-bar .=20 f)
;;           = (minibuffer . t)=20 (user-position . t) (user-size . t)
;;=20           (height . 76) = (width .=20 91) (top . 0) (left - 0)
;;=20           (cursor-color . = "yellow")=20 (mouse-color . "yellow")
;;=20           (foreground-color = .=20 "white")
;;          =20 (background-color . "Dark Green") (font . "6x10"))
;;=20  )
;;   ;; modify for font selection
;;   = (setcdr  (assoc 'font default-frame-plist) = my-font)
;;  =20 (setcdr  (assoc 'height default-frame-plist) = my-height)
;;  =20 (setcdr  (assoc 'width default-frame-plist) my-width)
  =
 =20 (setq default-frame-alist  '((horizontal-scroll-bar .=20 f)
           &= nbsp;           &n= bsp;    =20 (tool-bar . f = )
         =20 (vertical-scroll-bar .=20 f)
          (minibuffer = . t)=20 (user-position . t) (user-size .=20 t)
          (height . = 76)=20 (width . 85) (top . 0) (left -=20 0)
          = (cursor-color .=20 "yellow") (mouse-color .=20 "yellow")
         =20 (foreground-color .=20 "white")
         =20 (background-color . "Dark Green") (font . "6x10")) )
  ;; modify = for=20 font selection
  (if (not (eq foundfont 'nil))   = (setcdr =20 (assoc 'font default-frame-alist) foundfont) )
  (if (not (eq=20 foundheight 'nil)) (setcdr  (assoc 'height default-frame-alist)=20 foundheight) )
  (if (not (eq foundwidth 'nil))  = (setcdr =20 (assoc 'width default-frame-alist) foundwidth) )
  (if (not = (null=20 foundfg))        (setcdr  (assoc = 'foreground-color default-frame-alist) foundfg) )
  (if (not = (null=20 foundbg))        (setcdr  (assoc = 'background-color default-frame-alist) foundbg) )
 
   (scroll-bar-mode -1)
   (tool-bar-mode=20 -1)
 
  (make-frame-command)   )
 
 
 
;; defun for new frame on left 
(defun new-frame-left()=20 (interactive)
;;   (setq default-frame-plist =20 '((horizontal-scroll-bar . f)
;;=20           = (vertical-scroll-bar .=20 f)
;;           = (minibuffer . t)=20 (user-position . t) (user-size . t)
;;=20           (height . 76) = (width .=20 91) (top . 0) (left - 0)
;;=20           (cursor-color . = "yellow")=20 (mouse-color . "yellow")
;;=20           (foreground-color = .=20 "white")
;;          =20 (background-color . "Dark Green") (font . "6x10"))
;;=20  )
;;   ;; modify for font selection
;;   = (setcdr  (assoc 'font default-frame-plist) = my-font)
;;  =20 (setcdr  (assoc 'height default-frame-plist) = my-height)
;;  =20 (setcdr  (assoc 'width default-frame-plist) my-width)
  =
 =20 (setq default-frame-alist  '((horizontal-scroll-bar .=20 f)
           &= nbsp;           &n= bsp;    =20 (tool-bar . f = )
         =20 (vertical-scroll-bar .=20 f)
          (minibuffer = . t)=20 (user-position . t) (user-size .=20 t)
          (height . = 76)=20 (width . 85) (top . 0) (left .=20 0)
          = (cursor-color .=20 "yellow") (mouse-color .=20 "yellow")
         =20 (foreground-color .=20 "white")
         =20 (background-color . "Dark Green") (font . "6x10"))
 )
  = ;;=20 modify for font selection
  (if (not (eq foundfont = 'nil))  =20 (setcdr  (assoc 'font default-frame-alist) foundfont) )
  = (if (not=20 (eq foundheight 'nil)) (setcdr  (assoc 'height default-frame-alist) = foundheight) )
  (if (not (eq foundwidth 'nil))  = (setcdr =20 (assoc 'width default-frame-alist) foundwidth) )
  (if (not = (null=20 foundfg))        (setcdr  (assoc = 'foreground-color default-frame-alist) foundfg) )
  (if (not = (null=20 foundbg))        (setcdr  (assoc = 'background-color default-frame-alist) foundbg) )
 
   (scroll-bar-mode -1)
   (tool-bar-mode=20 -1)
 
  (make-frame-command)   )
 

;; defun for new frame on center
(defun new-frame-center()=20 (interactive)
;;   (setq default-frame-plist =20 '((horizontal-scroll-bar . f)
;;=20           = (vertical-scroll-bar .=20 f)
;;           = (minibuffer . t)=20 (user-position . t) (user-size . t)
;;=20           (height . 76) = (width .=20 85) (top . 0) (left . 532)
;;=20           (cursor-color . = "yellow")=20 (mouse-color . "yellow")
;;=20           (foreground-color = .=20 "white")
;;          =20 (background-color . "Dark Green") (font . "6x10"))
;;=20  )
;;   ;; modify for font selection
;;   = (setcdr  (assoc 'font default-frame-plist) = my-font)
;;  =20 (setcdr  (assoc 'height default-frame-plist) = my-height)
;;  =20 (setcdr  (assoc 'width default-frame-plist) my-width)
  =
 =20 (setq default-frame-alist  '((horizontal-scroll-bar .=20 f)
           &= nbsp;           &n= bsp;    =20 (tool-bar . f = )
         =20 (vertical-scroll-bar .=20 f)
          (minibuffer = . t)=20 (user-position . t) (user-size .=20 t)
          (height . = 76)=20 (width . 85) (top . 0) (left .=20 600)
          = (cursor-color .=20 "yellow") (mouse-color .=20 "yellow")
         =20 (foreground-color .=20 "white")
         =20 (background-color . "Dark Green") (font . "6x10"))
 )
  = ;;=20 modify for font selection
  (if (not (eq foundfont = 'nil))  =20 (setcdr  (assoc 'font default-frame-alist) foundfont) )
  = (if (not=20 (eq foundheight 'nil)) (setcdr  (assoc 'height default-frame-alist) = foundheight) )
  (if (not (eq foundwidth 'nil))  = (setcdr =20 (assoc 'width default-frame-alist) foundwidth) )
  (if (not = (null=20 foundfg))        (setcdr  (assoc = 'foreground-color default-frame-alist) foundfg) )
  (if (not = (null=20 foundbg))        (setcdr  (assoc = 'background-color default-frame-alist) foundbg) = )
    =20 (scroll-bar-mode -1)
   (tool-bar-mode -1)
 
  (make-frame-command)   )
 

;; end runnin-emacs-version-or-newer
)
 
 
 
 
 
;; earlier versions
 
( t
 
  (defun new-frame-left() (interactive)=20
    ( make-frame  = '(
     =20 (horizontal-scroll-bar . f) (vertical-scroll-bar .=20 f)
           &= nbsp;           &n= bsp;    =20 (tool-bar . f )
      (minibuffer .=20 t)
      (user-position . t) (user-size .=20 t)
      (height .=20 76)
      (width .=20 85)
      (top . 0) (left . 0) (cursor-color = .=20 "yellow")
      (mouse-color . "yellow")=20 (foreground-color . "white")
      = (background-color=20 . "Dark Green") (font . "9x15bold")
      )=20
    ) )
 
  (defun new-frame-right() = (interactive)
    ( make-frame  '( =20 (horizontal-scroll-bar . f) (vertical-scroll-bar .=20 f)
           &= nbsp;           &n= bsp;    =20 (tool-bar . f )
        = (minibuffer . t)=20 (user-position . t) (user-size .=20 t)
        (height . 76) (width .=20 85)
        (top . 0) (left . 600) = (cursor-color . "yellow")
       =20 (mouse-color . "yellow") (foreground-color .=20 "white")
        (background-color = . "Dark=20 Green") (font . "9x15bold")  )
    ) )
 =20
  ) 
 
;; end cond
)
 
 
 
(defun move-frame-right() (interactive)
  ( = new-frame-right) (=20 delete-frame ) )
(defun move-frame-left() = (interactive)
   =20 ( new-frame-left) ( delete-frame ) )
 
 
 

;; ****************************operational variables
(setq=20 default-case-fold-search nil)
(setq scroll-step 1)
 
 
 

;; abbreviation stuff
;; (setq abbrev-all-caps 'nil)
;; = (setq=20 abbrev-mode 't)
; (quietly-read-abbrev-file = "~/AirRes/AirResAbbrev")
;=20 macro to save abbreviations
;; (fset 'save-abbrev
;; [escape ?x ?w = ?r ?i=20 ?t ?e ?- ?a ?b ?b ?r ?e ?v ?- ?f ?i ?l ?e return ?\C-a ?\C-k ?~ ?/ ?A ?i = ?r ?R=20 ?e ?s ?/ ?A ?i ?r ?R ?e ?s ?A ?b ?b ?r ?e ?v return])
;; = (global-set-key=20 [escape ?-] 'abbrev-prefix-mark)
 
 
 
;; tags stuff
;; (setq tags-file-name=20 '/export/home/fsieber/worka/obb_vistas/TAGS)
 
 
 
;; backspace stuff
;; (keyboard-translate "\C-h" "\C-?")
;;=20 (keyboard-translate "\C-?" "\C-h")
 

;; ************************************** vc
(setq=20 vc-rcsdiff-knows-brief 'no)
 
;; paths
; (setq vc-path '/usr/local/rcs/bin)
;; no = toolbar
;;=20 (set-specifier top-toolbar-visible-p 'nil)
;; preferred shell
 
;; ***************************************** shell
(setq=20 explicit-shell-file-name "/usr/bin/ksh")
 
 
 
 
 
;;   *********** indenting and colorizing  =20 **************
 
;;  indenting  for c, c++
(setq c-basic-offset = 4)
(setq=20 c-indent-level 4)
(setq c-continued-statement-offset 4)
(setq=20 c-brace-offset 0)
(setq c-brace-imaginary-offet 0)
(setq = c-label-offset=20 -4)
(setq c-argdecl-indent 0)
 
;; colorize
(global-font-lock-mode t)
;; set comments to=20 salmon
(custom-set-variables)
(custom-set-faces
 '(font-loc= k-comment-face=20 ((t (:foreground "salmon")))))
 
 
 

;; set tab stop at 4
(setq tab-stop-list '(4 8 12 16 20 24 = 28 32 36=20 40 44 48 52 56 60 64 68 72 76))
; (setq tab-width 4)
 

;; tabs, newlines, indpenting
(global-set-key "\C-h"=20 'delete-backward-char)
;; (define-key c-mode-map "\C-i"=20 'tab-to-tab-stop)
;; (define-key c++-mode-map "\C-i" = 'tab-to-tab-stop)
;;=20 should be just for c++-mode, but cant get it to work
;; = (global-set-key=20 "\C-i" 'c++-indent-line)
;; (global-set-key "\C-m" = 'newline-and-indent)
;;=20 (define-key c-mode-map "\C-m" 'newline-and-indent)
;; (define-key=20 c++-mode-map "\C-m" 'newline-and-indent)
 

;; ^j  newline and indent it
;; ^o  move to next = line and=20 indent it
(fset 'nextline-and-indent "\C-n\C-a\C-i")
;; (fset=20 'nextline-and-indent-new "\C-n\C-a\C-i")
 
(defun nextline-and-indent-new() (interactive) (newline) = (c-indent-line)=20 )
(defun endline-and-indent-new() (interactive) (end-of-line)=20 (newline-and-indent) )
(global-set-key "\C-j"=20 'endline-and-indent-new)
(global-set-key "\C-o" = 'nextline-and-indent)
 
;; (define-key c-mode-map "\C-j" 'nextline-and-indent)
;;=20 (global-set-key "\C-m" 'nextline-and-indent-new)
;; (define-key = c-mode-map=20 "\C-m" 'nextline-and-indent-new)
;; (define-key c++-mode-map "\C-m"=20 'nextline-and-indent-new)
;; (define-key c++-mode-map "\C-j"=20 'nextline-and-indent)
 
;; seems like default style for c-style-alist is "gnu" does indent = by=20 2
;; ( cond ( ( running-emacs-version-or-newer 19 30 = )   =20
;;       (c-set-style=20 "cc-mode")
;;      )
;; )
 
 
 
;; c-mode-hook  put line line number, abbrev-mode,=20 auto-mode
(add-hook 'c-mode-hook 'line-number-mode 1)
(add-hook=20 'perl-mode-hook 'line-number-mode 1)
;; (setq perl-mode-hook  = '(lambda=20 () (line-number-mode 1)(abbrev-mode 1) ) )
;; (add-hook 'c-mode-hook=20 'abbrev-mode)
 

;; (defun my-c-mode-common-hook()
;;  (setq=20 c-mode-hook
;;        '(lambda=20 ()
;;          =20 (line-number-mode 1)(abbrev-mode 1)(c-toggle-auto-state=20 1)
;;          =20 (c-toggle-hungry-state=20 1)
;;          =20 (c-set-style = "cc-mode")
;;        =20 )
;;   )
;; )
;; (add-hook 'c-mode-common-hook=20 'my-c-mode-common-hook)
 
 
 
(setq c++-mode-hook  '(lambda () (line-number-mode = 1)(abbrev-mode=20 1)
;;           = ;            =  =20 (define-key c-mode-map "\C-m"=20 'newline-and-indent)
        &= nbsp;           &n= bsp;   =20 (define-key c++-mode-map "\C-m"=20 'newline-and-indent)
        &= nbsp;           =20 (c-set-style "cc-mode"=20 )
            = )=20 )
 
 
 
;; junk
;;(defun fredsgoto(ARG) (interactive) (line-number-mode) = (goto-line) )
;;(setq sun-esc-bracket t)
 

(defun reportfile ()
  "Report which file this = is"
 =20 (interactive nil)
  (setq fileName = (buffer-file-name))
  =20 (message "----%s-----" fileName)
   (sleep-for 2)
  = (message "")
)
 
 
 
;; ***********************jeffs functions
 

;;--------------------------------------------------------------= ---------------
(defun=20 current-line ()
  "Return the current buffer line at = point.  The=20 first line is 0."
  (save-excursion
   =20 (beginning-of-line)
    (count-lines (point-min)=20 (point))
    )
 =20 )
;;------------------------------------------------------------------= -----------
(defun=20 rof ()
  "Reopen the current file anew.
   Discard = the=20 current buffer and reread file from disk.
   Good for = viewing the=20 newest error log after a new run."
  (interactive nil)
  = (setq=20 line (current-line))
  (setq column (current-column))
  = (setq=20 fileName (buffer-file-name))
  (kill-buffer = (current-buffer))
 =20 (find-file fileName)
  (goto-line (+ 1 line))
  = (forward-char=20 column)
  (message "---------- File Reopened = ----------")
 =20 (sleep-for 1)
  (message "")
  )
;;- - - - - - - - - = - - - -=20 - - - - - - - - - - - - - - - - - - - - - - - - - -
(defun rec = ()
 =20 "Save buffer and redo the last compile command."
  (interactive=20 nil)
  (save-buffer (current-buffer))
  = (recompile)
 =20 )
;;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - = - - - -=20 - -
(defun rmtws ()
  "Remove trailing whitespace from the = current=20 buffer."
  (interactive nil)
 =20 (save-excursion
    (goto-char=20 (point-min))
    (while (< (point)=20 (point-max))
     =20 (end-of-line)
     =20 (delete-horizontal-space)
      = (forward-line=20 1)
     )
   )
 )
;;- - - = - - - -=20 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - = -
(defun rmbl=20 ()
  "Remove blank lines from the current buffer."
 =20 (interactive nil)
  (save-excursion
    = (goto-char=20 (point-min))
    (while (< (point)=20 (point-max))
     =20 (delete-blank-lines)
      (forward-line=20 1)
     )
   )
 )
;;- - - = - - - -=20 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - = -
(defun utb=20 ()
  "Untab the current buffer. Convert tabs to = spaces."
 =20 (interactive nil)
  (untabify (point-min) (point-max))
  = (save-buffer (current-buffer))
  (rmws)
 )
;;- - - - = - - - -=20 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
(defun = jpf=20 ()
  "Fill current paragraph, justify, and move = forward."
 =20 (interactive nil)
  (fill-paragraph 'justify)
 =20 (forward-paragraph)
  (recenter)
 )
;;- - - - - - - - = - - - -=20 - - - - - - - - - - - - - - - - - - - - - - - - - - -
(defun = delete-line=20 ()
  "Delete the line the cursor is on."
  (interactive=20 nil)
  (beginning-of-line)
  (setq beg = (point))
 =20 (forward-line 1)
  (setq end (point))
  (kill-region beg = end)
 )
;;- - - - - - - - - - - - - - - - - - - - - - - - - - = - - - -=20 - - - - - - - - -
(defun dup-line ()
  "Duplicate the current = line."
  (interactive nil)
 =20 (save-excursion
    = (beginning-of-line)
   =20 (setq beg (point))
    (forward-line = 1)
   =20 (setq end (point))
    (copy-region-as-kill beg=20 end)
    (yank)
    )
 =20 (forward-line 1)
  )
;;- - - - - - - - - - - - - - - - - - - = - - - -=20 - - - - - - - - - - - - - - - -
(defun insert-tab ()
  = "Insert a=20 non-interpreted TAB (do not indent)."
  (interactive = nil)
 =20 (setq   char "\t")
  (insert char)
  )
;;- = - - - -=20 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - = -
(defun=20 jpf ()
  "Fill current paragraph, justify, and move = forward."
 =20 (interactive nil)
  (fill-paragraph 'left)
 =20 (forward-paragraph)
  (recenter)
  )
 

;; easiet to hardest
 
;; self-insert
;; ^
;; function
;; ^ function
;; = esc
;; esc=20 function
;; alt
;; alt funtion
;; shift function
;;  = moderate=20 acrobatics
;; esc ^
;; esc alt
;; esc shift
;;  finger = mangling beyond this point
;; ^ alt
;; ^ shift   limited = set
;; alt shift
;; alt shift function
;; esc ^ alt
;; esc ^ = shift
;; esc alt shift
;; ^ alt shift
;; esc ^ alt shift
 

;;   *********** mouse   = **************
 

(fset 'previous-3-lines [up up up])
(fset 'next-3-lines = [down down=20 down])
; (global-set-key [mouse-4] 'previous-3-lines)
; = (global-set-key=20 [mouse-5] 'next-3-lines)
(global-set-key [mouse-4]=20 'previous-line)
(global-set-key [mouse-5] 'next-line)
 
;;   *********** redefined CTRL  keys  =20 **************
 
;; ^abcdefgknp  well known
;; ^h is backspace
;; ^i is = tab
;;=20 ^j is linefeed
;; ^l  go to line
;; ^m is RET
;; ^o is go = down=20 redoing intents
;; ^q is quoted insert
;; ^r-s  = backward-forward=20 search
;; ^t is tab
;; ^u is universal argument follow by digits, = four=20 times default
;; ^v scroll down
;; ^w yank/delete
;; ^x = prefix
 
;; ^z undefined
 

;; ^,  undefined
;; ^.  undefined
;; ^/  = is=20 undo
;; ^;  undefined
;; ^'  undefined
;  = ^[  is=20 esc
;; ^]  match brackets
;; ^/  is scroll up
;; = ^- =20 begin negative argument
;; ^`  undefined
;; ^=3D  = undefined
 
 
 
;; ^l
(global-set-key "\C-l" 'goto-line)
 

;; ^O was overwrite mode,  ^o now used for indent = control
;; ^o=20 set to next-line-and-indent, above
;;(global-set-key "\C-z"=20 'overwrite-mode)
;;(global-set-key "\C-z" 'overwrite-mode)
;;=20 (global-set-key "\C-o" 'overwrite-mode)
 

;; ^S, ^R to isearch-forward-regexp
(global-set-key "\C-s"=20 'isearch-forward-regexp)
(global-set-key "\C-r"=20 'isearch-backward-regexp)
 
;; ^t logical tab
;; the following line erros on 19.33
;; = (define-key=20 c-mode-map "\C-t" 'tab-to-tab-stop)  ;;was esc i
;; (define-key=20 c++-mode-map "\C-t" 'tab-to-tab-stop)  ;;was esc = i
(global-set-key=20 "\C-t" 'tab-to-tab-stop)  ;;was esc i
 
;; ^Z page up   as is ^\
;; (global-set-key "\C-z"=20 'scroll-down)
 
;; ^z  is grab to Register z
;; esc z is put back from = Register=20 z
(fset 'save-in-reg-z
   [?\C-x ?r ?s ?z = ])
(global-set-key=20 "\C-z" 'save-in-reg-z)
 
 
 

;; ^]  blink matching pen
(global-set-key "\C-]"=20 'blink-matching-open) 
;; (global-set-key "\C-]" = 'blink-matching-open)=20
 
;; ^.  dired-up-directory
;; (global-set-key "\C-\."=20 'dired-up-directory) 
 
;; ^;  grep
;; (global-set-key "\C-;" 'grep)
;; = (global-set-key=20 [(control ";")] 'grep)
 
;; ^\ page up,  note ^Z is also~/
(global-set-key "\C-\\"=20 'scroll-down)
 
;; ^'
;; (global-set-key "\C-=3D" 'do-shell-comment)  =
;;=20 (global-set-key "\C-=3D" 'do-shell-comment)
 
 
 
 
 

;;  ************** redefined  esc = keys   =20 ***************
 
;; esc q  query-replace
;; (define-key c-mode-map "\M-q"=20 'query-replace)
;; (define-key c++-mode-map "\M-q" = 'query-replace)
;;=20 query-replace now F3
;; (global-set-key "\M-q" 'query-replace)
;;=20 (global-set-key "\336" 'delete-backward-char)
 
;; esc :  clean up indenting in region
(global-set-key = [escape ?:]=20 'indent-region)
 
;; esc ;  line up comment on this line, move to next
(defun = freds-indent-for-comment() (interactive) (indent-for-comment)(next-line=20 1))
(global-set-key [escape ?;] 'freds-indent-for-comment)
 
;; < > below
 
;; available aijnpquvz
;; available /;'[]\`-=3D
 
;;  esc 1 - 0 are avaialable
 

;; esc 1 or esc ! same as  shft F4
;; =
(global-set-key=20 [escape ?1] 'shell-command)
 

;; ecc a  available
;; esc b  change to *Buffer=20 List*
(defun change-to-buffer-list() (interactive) (switch-to-buffer = "*Buffer=20 List*") (Buffer-menu-revert) )
(global-set-key [escape ?b]=20 'change-to-buffer-list)
 

;; esc c  change to *Compilation*
(defun=20 change-to-compilation() (interactive) (switch-to-buffer=20 "*compilation*"))
(global-set-key [escape ?c] = 'change-to-compilation)
 

;; esc d  change to debug  -- does not work
; = (fset=20 'goto-debug
;   [?\C-x ?b ?* ?g ?u ?d ?- ?  = return])
(fset=20 'goto-debug
   [escape ?b escape ?< ?\C-s ?g ?u ?d = ?- =20 ?\C-m ?f])
;; (defun change-to-debug() (interactive) = (switch-to-buffer "*gud-=20 "))
(global-set-key [escape ?d] 'goto-debug)
 
;; esc e goto .emacs
;; (fset 'goto-emacs
;;   = [?\C-x ?\C-f=20 ?\C-a ?\C-k ?~ ?/ ?. ?e ?m ?a ?c ?s return])
(defun goto-emacs()=20 (interactive) (find-file "~/.emacs"))
(global-set-key [escape ?e]=20 'goto-emacs)
 
;; esc f  !rcsdiff
(fset 'rcsdiff-on-file
  [ ?! ?r = ?c ?s=20 ?d ?i ?f ?f return ] )
(global-set-key [escape ?f] = 'rcsdiff-on-file)
 
;; esc g  change to *Grep*
(defun change-to-grep() = (interactive)=20 (switch-to-buffer "*grep*"))
(global-set-key [escape ?g]=20 'change-to-grep)
 
;; esc h   go to home directory
(defun go-home() = (interactive)=20 (dired "~") )
(global-set-key [escape ?h] 'go-home)
 
;; esc i  undefined
;; esc j  undefined
;; esc = k =20 change to *Shell*
(fset 'do-pwd
   [?p ?w ?d = return])
 
(defun change-to-shell() (interactive) (switch-to-buffer "*shell*") = (shell)=20 (execute-kbd-macro 'do-pwd))
(global-set-key [escape ?k]=20 'change-to-shell)
 

;; esc l  co -l
(fset 'rcs-lock-file
  [ ?! ?r = ?c ?s=20 ?   ?- ?l  return ] )
(global-set-key [escape ?l]=20 'rcs-lock-file)
 
 
 
;; esc m  change to *Messages*
(defun change-to-messages()=20 (interactive) (switch-to-buffer "*Messages*"))
(global-set-key = [escape ?m]=20 'change-to-messages)
 
;; esc n  line-number-mode
(global-set-key [escape ?n]=20 'line-number-mode)
 
;; esc o  change to *Occur*
(defun change-to-occur() = (interactive)=20 (switch-to-buffer "*Occur*"))
(global-set-key [escape ?o]=20 'change-to-occur)
 

;; esc p  undefined
;; esc q  undefined
 
;; esc r  "rename-buffer"
(fset = 'rename-the-buffer
  =20 [escape ?x ?r ?e ?n ?a ?m ?e ?- ?b ?u ?f ?f ?e ?r return ?\C-u ?\C-x ?q=20 return])
(global-set-key [escape ?r] 'rename-the-buffer)
 
;; esc s  change to *Shell Command Output*
(defun=20 change-to-shell-output() (interactive) (switch-to-buffer "*Shell Command = Output*"))
;; (fset 'change-to-shell-output
;;   [?\C-x = ?b ?* ?S=20 ?h ?e ?l ?l ?  ?C ?o ?m ?m ?a ?n ?d ?  ?O ?u ?t ?p ?u ?t ?*=20 return])
(global-set-key [escape ?s] 'change-to-shell-output)
 

;; esc t   go to top directory
(defun = go-to-top-dir()=20 (interactive) (dired "/master/WES") )
(global-set-key [escape ?t]=20 'go-to-top-dir)
 
;; esc u   !rcs -u
(fset 'rcs-unlock-file
  [ = ?! ?r ?c=20 ?s ?  ?- ?u  return ] )
(global-set-key [escape ?u]=20 'rcs-unlock-file)
 

;; esc v   rlog on the file
(fset = 'rcs-rlog-file
 =20 [ ?! ?r ?l ?o ?g  return ] )
(global-set-key [escape ?v]=20 'rcs-rlog-file)
 

;; wxy below
 
;; esc z is put back from Register z
;; ^z  is grab to = Register=20 z
(fset 'get-from-reg-z
   [?\C-x ?r ?i ?z = ])
(global-set-key=20 [escape ?z] 'get-from-reg-z)
 

;; also available    /;'[]\`-=3D
 

;; wxy<> below
;; these are standard but we lost the = escape as=20 prefix by using it with function
;; keys below
(global-set-key = [escape ?w]=20 'kill-ring-save)
(global-set-key [escape ?x]=20 'execute-extended-command)   
(global-set-key [escape = ?y]=20 'yank-pop)
(global-set-key [escape ?<]=20 'beginning-of-buffer)
(global-set-key [escape ?>] = 'end-of-buffer)
 
 
 

;; ****************** redefined  CTRL-X - =20 **************
;; ^x p  prev window, 
;; ^x n  = next=20 window           &= nbsp;           &n= bsp;           =20
(fset 'prev-windows "\C-u-1\C-xo")
(global-set-key "\C-xp"=20 'prev-windows)          = ;         =20
(global-set-key "\C-xn" 'other-window)
 
 
 
;; ***************** other special keys ************
;; up=20 down     
(global-set-key [up]=20 'previous-line)
(global-set-key [down] 'next-line)
(global-set-key = [home]=20 'beginning-of-buffer)
(global-set-key [end] 'end-of-buffer)
 
 
 
;; printscreen
(defun list-matching-lines-this() (interactive)=20 (list-matching-lines   (thing-at-point 'word)  = )  =20 )
(global-set-key [print] 'list-matching-lines-this)
(defun=20 list-matching-lines-selected() (interactive) = (list-matching-lines  =20 (buffer-substring (mark) (point))  )   = )
(global-set-key=20 [C-print] 'list-matching-lines-selected)
 
(fset 'repeat-last-shell-command
   [escape ?x ?s ?h = ?e ?l ?l=20 ?- ?c ?o ?m ?m ?a ?n ?d return up return])
(global-set-key [S-print]=20 'repeat-last-shell-command)
 
(fset 'do-cap-rlog
   [escape ?x ?s ?h ?e ?l ?l ?- ?c = ?o ?m ?m=20 ?a ?n ?d return ?R ?l ?o ?g return])
(global-set-key [escape print]=20 'do-cap-rlog)
 

;; scrolllock is key-20
(defun grep-this() (interactive) = (grep (=20 concat "~/bin/Grep " (thing-at-point 'word) ) ) )
(global-set-key = [key-20]=20 'grep-this)
(defun grep-selected() (interactive) (grep ( concat = "~/bin/Grep "=20 (buffer-substring (mark) (point)) ) ) )
(global-set-key [escape = key-20]=20 'grep-selected)
 

;; pause
(global-set-key [pause] 'list-matching-lines)
 
;;(fset 'do-devcheckup
;;   [escape ?x ?s ?h ?e ?l ?l = ?- ?c ?o=20 ?m ?m ?a ?n ?d return ?d ?e ?v ?c ?h ?e ?c ?k return ])
(fset=20 'do-devcheckup
   [f12 ?\C-a ?\C-k ?d ?e ?v ?c ?h ?e ?c ?k = return=20 ])
(global-set-key [escape pause] 'do-devcheckup)
 
;; control-pause is kp-f1
(fset = 'do-devcheckup-update
  =20 [f12 ?\C-a ?\C-k ?d ?e ?v ?c ?h ?e ?c ?k ?  ?- ?u return=20 ])
;;   [escape ?x ?s ?h ?e ?l ?l ?- ?c ?o ?m ?m ?a ?n ?d = return ?/=20 ?m ?a ?s ?t ?e ?r ?/  ?W ?E ?S ?/ ?t ?o ?o ?l ?b  ?i ?n ?/ ?d = ?e ?v ?c=20 ?h ?e ?c ?k ?u ?p ?  ?- ?u  return])
(global-set-key = [kp-f1]=20 'do-devcheckup-update)
 
 
 

;; ***************** function keys ******************
;; = 19.25.1=20 takes [escape f1], will not take [(shift/control f2)], will not=20 take
;;   [shift/control f2], will take [S/C-f2]
 

;; F1 ,  its hard to get to shift F1 on most pc's
;;=20 (global-set-key [f1] 'compile)
 
;; alt-F1  is grab to Register
(fset = 'save-in-reg
  =20 [?\C-x ?r ?s  ])
(global-set-key [\M-f1] 'save-in-reg)
 
(global-set-key [f1] 'help-command)
(global-set-key [escape f1]=20 'save-some-buffers)
 

;; F2 next error
 
;; alt-F2  is get from Register x
(fset=20 'get-from-reg
   [?\C-x ?i ?s  ])
(global-set-key = [\M-f2]=20 'get-from-reg)
 
(global-set-key [f2] 'next-error)
(global-set-key [f24]=20 'eval-buffer)
;; control F2 is f24 mapped by = xmodmap
(global-set-key=20 [S-f2] 'previous-error)
(global-set-key [escape f2] = 'first-error)
;;=20 (global-set-key [(meta f2)] 'first-error)
 

;; F3 execute macro
(global-set-key [f3] = 'query-replace)
;;=20 (global-set-key [f13] 'call-last-kbd-macro)
(fset=20 'rename-filename
   "wR\C-y")
(global-set-key [f13]=20 'rename-filename)
(global-set-key [S-f3] 'save-abbrev)
(fset = 'my-load-file=20 [escape ?x ?l ?o ?a ?d ?- ?f ?i ?l ?e return  ?\C-a ?\C-k ?~ ?/ ?. = ?e ?m ?a=20 ?c ?s return])
(global-set-key [escape f3] 'my-load-file)
(fset=20 'javacomp
   " 2>&1 | sed -e 's/\\[javac\\]//' | sed = -e=20 's/\\(^ *\\)\\(.*\\)/\\2/'")
(global-set-key [M-f3] 'javacomp)
 
 
 
;; F4   dired/shell
;; (global-set-key [f4]=20 'dired-other-window)
(global-set-key [f4] 'dired)
(global-set-key = [f14]=20 'tracking-shell)
;; (global-set-key [(shift f4)] = 'grep)
(global-set-key=20 [S-f4] 'shell-command)
;; (global-set-key [(meta f4)]=20 'dired-do-flagged-delete)
(global-set-key [escape f4]=20 'dired-do-flagged-delete)
 

;; F5 
;; (fset 'make-for   "\C-ifor ( ; ; ) = {\C-m}\C-p\C-f\C-f\C-f\C-f")
;; (global-set-key [f5] 'make-for)
 
(fset 'go-to-dired  [f4 return])
(global-set-key [f5]=20 'go-to-dired)
 
(global-set-key [S-f5] 'speedbar)
;; (global-set-key [escape f5] = 'reindent-then-newline-and-indent)
 
(defun set-mark-a() (interactive) (bookmark-set = "a"))
(global-set-key=20 [f15] 'bookmark-set)
 
;; (fset 'set-mark-at-a   "\M-xbookmark-set\C-m")
;;=20 (global-set-key [C-f5] 'set-mark-at-a)
 
;; (fset 'switch-buffers-to "\C-x\C-b\C-xn")
;; (global-set-key = [escape=20 f5] 'switch-buffers-to)
 
(fset 'get-buffer-list
   [?\C-x ?b ?* ?B ?u ?f ?f ?e = ?r=20 ?  ?L ?i ?s ?t ?* return ?\C-x ?\C-b])
(global-set-key [escape = f5]=20 'get-buffer-list)
 

;; F6   
;; (fset 'make-if   = "\C-iif ( )=20 {\C-m}\C-p\C-f\C-f\C-f")
;; (fset 'make-if   "\C-iif ( )=20 {\C-m}\C-p\C-f\C-f\C-f")
(fset 'comment-out   "//=20 \C-a\C-n")
(defun paste-line() (interactive)  (save-excursion=20 (beginning-of-line)
  (let ((beg (point))) (end-of-line)=20 (copy-region-as-kill beg (point)) ) ) )
(global-set-key [f6]=20 'comment-out)
(global-set-key [S-f6] 'paste-line)
(global-set-key = [f16]=20 'bookmark-jump)
(global-set-key [escape f6] 'find-name-dired)
 

;; F7   else if () { }
(defun paste-word()=20 (interactive)  (save-excursion (backward-word 1)
   = (let ((beg=20 (point))) (forward-word 1) (copy-region-as-kill beg (point)) ) ) = )
(fset=20 'do-shell-comment
   "\C-a# \C-a\C-n")
;; (fset=20 'make-elseif
;;   " else if ( )=20 {\C-m}\C-p\C-f\C-f\C-f\C-f\C-f\C-f\C-f\C-f\C-f\C-f")
(global-set-key = [f7]=20 'do-shell-comment)
;;(global-set-key [(control f7)]=20 'indent-for-comment)
(global-set-key [f17]  = 'list-matching-lines)
;;=20 (global-set-key [escape f7] 'make-elseif)
(global-set-key [S-f7]=20 'paste-word)
(global-set-key [escape f7] 'reportfile)
   =
 
;; F8   switch
;;(fset 'makeswitch
;;   = "switch=20 () = {\C-m\C-mdefault:\C-mbreak;\C-m}\C-p\C-p\C-p\C-p\C-f\C-f\C-f\C-f\C-f\C-f\= C-f=20 \C-b")
(global-set-key [f8] 'new-frame-left)
(global-set-key [f18] = 'shrink-window)
(global-set-key [S-f8] = 'move-frame-left)
(global-set-key=20 [escape f8] 'grep)
;; (global-set-key [(shift f8)] = 'enlarge-window)
;;=20 (global-set-key [(meta f8)] 'new-frame-left)
;; (global-set-key = [escape f8]=20 'makeswitch)
 
 
 
;; F9   case
(fset 'make-case
   "case=20 :\C-m\C-mbreak;\C-p\C-p\C-b\C-b ")
;; (global-set-key [f9]=20 'new-frame-right)
;; (global-set-key [f9]=20 'new-frame-center)
(global-set-key [f9] = 'other-frame)
(global-set-key=20 [f19] 'enlarge-window)
;; (global-set-key [control f9]=20 'make-case)
(global-set-key [S-f9] = 'move-frame-right)
(global-set-key=20 [escape f9] 'find-name-dired)
 

;;(fset 'apigrep
;;    [escape ?x ?g ?r ?e ?p = return=20 backspace backspace backspace backspace backspace backspace backspace = backspace=20 backspace backspace backspace ?a ?p ?i ?g ?r ?e ?p ?  \C-u \C-x q = ])
;;=20 (global-set-key [escape f9] 'apigrep)
 
 
 
 
 
;; F10  
(global-set-key [f10] = 'new-frame-right)
;;=20 (global-set-key [f10] 'grep)
;; f20 is control-f10  -- rcf is=20 rereadfile
(global-set-key [f20] 'rof)
(fset = 'make-block-body  =20 "{\C-m}\C-p")
;; (global-set-key [escape f10]=20 'make-block-body)
(global-set-key [escape f10]=20 'not-modified)
(global-set-key [S-f10] 'delete-line)
 
 
 

;; F11
(fset 'grep-Grep
   [escape ?x ?g ?r ?e = ?p=20 return backspace backspace backspace backspace backspace backspace = backspace=20 backspace backspace backspace backspace ?/ ?h ?o ?m ?e ?/ ?f ?r ?e ?d ?s = ?/ ?b=20 ?i ?n ?/ ?G ?r ?e ?p ?  \C-u \C-x q ])
(global-set-key [f11]=20 'grep-Grep)
 
(global-set-key [(control f11)] 'delete-frame)
(global-set-key = [S-f11]=20 'dup-line)
(global-set-key [escape f11] 'find-tag-other-window)
;; = (global-set-key [f11]  'find-file-other-frame)
;; = (global-set-key=20 [C-f11]  'dired-other-frame)
 
;; F12  compile
(global-set-key [f12]  'compile)
;; = (global-set-key [f12]  'rec)
(global-set-key [S-f12]=20 'call-last-kbd-macro)
;; (global-set-key [(control f12)] =20 'other-frame)
;; control F12 does not work due to quirk in reflection = x
;;=20 (fset 'find-next-alternative   "\C-u1\M-.")
;; = (global-set-key=20 [(control f12)] 'find-next-alternative)
(global-set-key [escape f12]=20 'ediff-buffers)
;; (global-set-key [(control f12)] 'compile)
;;=20 (global-set-key [S-f12] 'compile)
 
;; F36 is F12 on sun keyboard
;; (global-set-key [f36] =20 'compile)
;; (global-set-key [(control f36)]  = 'other-frame)
 
 
 
;; old function key  stuff
 
;; F9   compile
;;(global-set-key "\C-xal" = 'compile)
;;=20 F10  locate next error
;;(global-set-key "\C-xam" = 'next-error)
 
;; F8   comment
;;(fset 'new-comment=20 "\M-;\C-a\C-i\C-f\C-f\C-f")
;;(fset 'new-comment = "\C-a\C-i/*  =20 */\C-a\C-i\C-f\C-f\C-f")
;;(global-set-key "\C-xad" = 'new-comment)
 
;; F5   comment to right
;;(fset 'new-comment=20 "\C-a\C-i/*   */\C-a\C-i\C-f\C-f\C-f")
;;(fset = 'new-forward-comment=20 "\C-t/*   */\C-b\C-b\C-b\C-b")
;;(global-set-key "\C-xaf"=20 'new-forward-comment)
 
 
 
 
 
 
 
 
 
;; this stuff is for xemacs
;;=20 (custom-set-variables)
;;(custom-set-faces
;;  '(red ((t = (:foreground=20 "red" :background "white"))) t)
;;  '(blue ((t (:foreground = "blue")))=20 t)
;; '(highlight ((t (:foreground "black"))) t))
;; ))
;; = Options Menu=20 Settings
;; = =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
;;(con= d
;; (
;;   =20 (and (string-match "XEmacs"=20 emacs-version)
;;       (boundp=20 'emacs-major-version)
;;       (or=20 (and
;;          &nb= sp; (=3D=20 emacs-major-version=20 19)
;;          &nbs= p;=20 (>=3D emacs-minor-version=20 14))
;;           = (=3D=20 emacs-major-version 20))
;       = (fboundp=20 'load-options-file)
;;     )
;; =20 (load-options-file = "/h/USERS/global/fsieber/.xemacs-options")
;; =20 )
;;)
;; = =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D
;; End of Options Menu=20 Settings
 
 
 
;; this is old stuff mess with frame arguments
;; (setq=20 frame-initial-geometry-arguments '((user-position . t) (user-size .=20 t)
;;    (height . 54) (width . 81) (top . 0) (left .=20 -)
;;    (height . 65) (width . 90) (top . 0) (left .=20 0))  )
;; (setq default-frame-plist '(width 70 height 86 = top  0=20 left  0) )
;; (setq default-x-frame-plist '(width 70 height 86 = top =20 0 left  0) ) 
;; (setq default-frame-plist '((width.89)=20 (height.59) (top.0) (left.-) ) 
;; (setq = default-frame-alist =20 '((width.89) (height.59) (top.0) (left.-) ) 
 
;; this is done inside cond below, so dont do it here
; (setq=20 default-frame-plist  '((horizontal-scroll-bar . f) = (vertical-scroll-bar .=20 f) (minibuffer . t) (user-position . t) (user-size . t) (height . 61) = (width .=20 90) (top . 0) (left - 0) (cursor-color . "yellow") (mouse-color . = "yellow")=20 (foreground-color . "white") (background-color . "Dark Green") (font . = "6x10"))=20 )
; (setq default-frame-alist  '((horizontal-scroll-bar . f)=20 (vertical-scroll-bar . f) (minibuffer . t) (user-position . t) = (user-size . t)=20 (height . 61) (width . 90) (top . 0) (left - 0) (cursor-color . = "yellow")=20 (mouse-color . "yellow") (foreground-color . "white") (background-color = . "Dark=20 Green") (font . "6x10")) )
 
 
 
 
 
;; (fset 'grab-struct
;;   [?\C-a ?\C-s ?} ?\C-e = escape ?w=20 ?\C-r ?{ ?\C-a])
 
;; (global-set-key [escape f6] 'grab-struct)
 
 
 
;; (fset 'delete-struct
;;   [?\C-a ?\C-s ?{ ?\C-b = ?\C- =20 ?\C-s ?} ?\C-b ?\C-f ?\C-w ?\C-p ?\C-n ?\C-a])
 
;; (global-set-key [escape f7] 'delete-stru ct)
 
 
 
 
 
;;   dired extensions=20 ******************************************
 
     (add-hook=20 'dired-mode-hook
         = ;     =20 '(lambda=20 ()
           &= nbsp;     =20 (define-key=20 dired-mode-map
         &= nbsp;           &n= bsp;       =20 [f5]
           = ;            =       =20 'dired-up-directory)
 
           &n= bsp;     =20 ))
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 ------_=_NextPart_001_01C46074.31359E35-- --===============0743635278== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Bug-gnu-emacs mailing list Bug-gnu-emacs@gnu.org http://lists.gnu.org/mailman/listinfo/bug-gnu-emacs --===============0743635278==--