unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
* how NOT to remove trailing whitespace?
@ 2006-10-06 22:46 funkyj
  2006-10-07  1:47 ` Eric Hanchrow
       [not found] ` <mailman.7847.1160186341.9609.help-gnu-emacs@gnu.org>
  0 siblings, 2 replies; 3+ messages in thread
From: funkyj @ 2006-10-06 22:46 UTC (permalink / raw)


I'm maintaining old code C that has lots of trailing whitespace.  When
I edit these files with emacs it is automagically deleting this
trailing whitespace which pisses my co-workers off because of the noise
in CVS diff.

Here is the emacs I'm using:

GNU Emacs 21.3.1 (i386--freebsd, X toolkit, Xaw3d scroll bars)

and below is my .emacs:

I don't see that I've ASKED emacs to do this for me and I'm sure I have
not been accidentally typing "M-x delete-trailing-whitespace".  Can
someone tell me how to tell emacs to stop being so "helpful"?

Regards,
  --jfc


////////////////////////////


;; ;;;;;;;;;;;;;;;; common lisp related config
;; (setq inferior-lisp-program "clisp")

;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; ;; Are we running XEmacs or Emacs?
;; (defvar running-xemacs (string-match "XEmacs\\|Lucid"
emacs-version))

;; ;; Set up the keyboard so the delete key on both the regular
keyboard
;; ;; and the keypad delete the character under the cursor and to the
right
;; ;; under X, instead of the default, backspace behavior.
;; (global-set-key [delete] 'delete-char)
;; (global-set-key [kp-delete] 'delete-char)

;; Turn on font-lock mode for Emacs

(global-font-lock-mode t)
(setq font-lock-support-mode 'lazy-lock-mode)

;; ;; Always end a file with a newline
(setq require-final-newline t)

;; ;; Stop at the end of the file, not just add lines
(setq next-line-add-newlines nil)

(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.
 '(bookmark-save-flag 1)
 '(c-tab-always-indent nil)
 '(column-number-mode t)
 '(indent-tabs-mode nil)
 '(mail-source-delete-incoming nil)
 '(rmail-preserve-inbox t)
 '(sc-auto-fill-region-p nil)
 '(tab-stop-list (quote (4 8 12 16 20 24 28 32 36 40 48 56 64 72 80 88
96 104 112 120)))
 '(tab-width 8)
 '(uniquify-buffer-name-style (quote post-forward-angle-brackets) nil
(uniquify)))

(add-to-list 'load-path "/homes/jcano/elisp/site-lisp" t)


;; (custom-set-faces)

(show-paren-mode t)
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; ;;
;; ;; `iswitchb' is the latest rev of sje-switch-buffer.
;; ;;
;; ;; enable iswitchb bindings.
(iswitchb-default-keybindings)

;; (resize-minibuffer-mode 1)

(setq calendar-latitude 37.4)
(setq calendar-longitude -122.02)
(setq calendar-location-name "Sunnyvale, CA")


;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;(require 'jde)
;; ;; we should ebug jde errors
;; ;(setq debug-on-error t)

;; ;; Sets the basic indentation for Java source files
;; ;; to two spaces.
;; ;(defun my-jde-mode-hook ()
;; ;  (setq c-basic-offset 2))

;; ;(add-hook 'jde-mode-hook 'my-jde-mode-hook)

;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;; emacs cscope integration.  See xcscope.el comments for
documentation.
(require 'xcscope)
(setq cscope-marker-ring-length 128)

;; ;;
;; ;; Ken's abbrev macro package.
;; ;;
;; (require 'c-mode-abbrevs)
;; (read-abbrev-file)
;; (global-set-key "\C-x;" 'petes-expand-abbrev)
;; (global-set-key "\C-x'" 'petes-expand-abbrev)
;; ;(autoload 'petes-expand-abbrev "c-mode-abbrevs")
;; ;(eval-after-load "c-mode-abbrevs" (read-abbrev-file))
;; ;;
;; ;; My personal abbreviations.
;; ;;


(cond ((or (eq window-system 'w32) (eq window-system 'x))
;; 	   (setq search-highlight t)
 	   (setq visible-bell t)
;	   (global-set-key [f9] 'cscope-find-global-definition)
	   (global-set-key [f9] 'cscope-find-global-definition-no-prompting)
	   (global-set-key [f10] 'cscope-pop-mark) ; see tags-stack.el

 	   (global-unset-key [f1])
 	   (global-set-key [f2] 'auto-fill-mode) ; toggle auto-fill
 	   (global-set-key [M-f2] 'filladapt-mode) ; toggle filladapt-mode
 	   (global-set-key [f3] 'transient-mark-mode) ; toggle transient mark
 	   (global-set-key [f4] 'toggle-truncate-lines)
 	   (global-set-key [f5]  'bury-buffer) ; cycle through buffers

 	   (global-set-key [f19] 'push-to-tag) ; see tags-stack.el
;; 	   (global-set-key (quote [3 f9]) 'push-to-tag-prompt)
 	   (global-set-key [f20] 'my-win-pop) ; see tags-stack.el

       ; mouse `scroll wheel' scrolling.
       (global-set-key [mouse-4] 'jc-scroll-win-down)
       (global-set-key [mouse-5] 'jc-scroll-win-up)

 	   ))


(global-set-key "\C-x~" 'compile)
(global-set-key "\C-x&" 'query-replace-regexp) ;; keep both of these
bindings?
(global-set-key "\M-&" 'query-replace-regexp)  ;; ???

;; override the CVS/RCS binding for C-xC-q.  I like the old school
;; binding.  C-x v v is still available for checkin/checkout.
(global-set-key "\C-x\C-q" (quote toggle-read-only))

(load-library "tags-stack")

(autoload 'push-to-tag "tags-stack" "Push a tag on the stack")
(autoload 'push-to-tag-prompt "tags-stack" "Push a tag on the stack")
(autoload 'my-win-pop  "tags-stack" "Pop a tag on the stack")
;
; a function to clear the tags table
;
(defun my-clear-tags (args)
  "clear some tag related variables"
  (interactive "p")
  (setq tags-file-name nil)
  (setq tags-table-list nil)
  )


;; ;;;
;; ;;; tab stops for non-programming modes
;; ;;;
;; (setq-default tab-stop-list '(4 8 12 16 20 24 28 32 36 40
;; 								44 48 52 56 60 64 68 72 76 80 84 88 92 96
;; 								100 104 108 112 116 120))

; ;;
; ;; `jfc-insert-date' is for use in my journal.  One of these days
; ;; I'll hack add-log.el into something I like or I'll get a newer
; ;; version of emacs in which `steno.el' works.  until then I can use
; ;; `jfc-insert-date' to put dates in my journal.
; ;;
 (defun jfc-insert-date ()
   "insert date string into the current buffer.
 formatted a la jonathan"
   (interactive)
   (let ((tm (current-time-string)))
   (insert
    (concat
     "* ================ "
     (substring tm 20 24)
     (substring tm  3 11)
     (substring tm  0  3)
     (substring tm 10 16)
     " ==============
 "))))

 (defun jfc-insert-date-brief ()
   "insert date (yyyy/mm/dd hh:mm)string into the current buffer."
   (interactive)
   (insert (concat "--jfc " (format-time-string "%Y/%m/%d, %H:%M"))))

 (global-set-key "^[\344" (quote jfc-insert-date-brief))

;; (defun mmc-compile (arg)
;;   "fire off a compile in one of the subdirectories.  If called with
an argument
;; this function will prompt for the (relative path) name of the
subdirectory"
;;   (interactive "P")
;;   (let ((cur-buf (current-buffer)))
;;     (defvar mmc-compile-dir "power_pc"
;;       "this variable controls which subdirectory 'mmc-compile' runs
a compile in.")
;;     (if (or arg (not mmc-compile-dir))
;;         (progn
;;           (if (not mmc-compile-dir)
;;           (setq mmc-compile-dir "power_pc"))
;;           (setq mmc-compile-dir
;;                 (read-from-minibuffer
;;                  "subdirectory for compile: "
;;                  mmc-compile-dir))))
;;     (let ((rawdir (pwd)) curdir subdir subdir-buffer)
;;       ;; next line is a kluge to remove "Directory " from results of
pwd
;;       (setq curdir (substring rawdir 10 (length rawdir)))
;;       (setq subdir (concat curdir mmc-compile-dir))
;;       (setq subdir-buffer (dired-other-window subdir))
;;       (compile compile-command)
;;       (bury-buffer subdir-buffer))
;;     (switch-to-buffer cur-buf)))



;; (defun mmc-mkmk (arg)
;;   "fire off a Mmkmk in one of the subdirectories.  If called with an
argument
;; this function will prompt for the (relative path) name of the
subdirectory"
;;   (interactive "P")
;;   (let ((cur-buf (current-buffer)))
;;     (defvar mmc-compile-dir "power_pc"
;;       "this variable controls which subdirectory 'mmc-compile' runs
a compile in.")
;;     (if (or arg (not mmc-compile-dir))
;;         (progn
;;           (if (not mmc-compile-dir)
;;           (setq mmc-compile-dir "solaris"))
;;           (setq mmc-compile-dir
;;                 (read-from-minibuffer
;;                  "subdirectory for Mmkmk: "
;;                  mmc-compile-dir))))
;;     (let ((rawdir (pwd)) curdir subdir subdir-buffer)
;;       ;; next line is a kluge to remove "Directory " from results of
pwd
;;       (setq curdir (substring rawdir 10 (length rawdir)))
;;       (setq subdir (concat curdir mmc-compile-dir))
;;       (setq subdir-buffer (dired-other-window subdir))
;;       (let (compile-command)
;;         (compile "./Mmkmk"))
;;       (bury-buffer subdir-buffer))
;;     (switch-to-buffer cur-buf)))

;; (global-set-key [f11] 'mmc-mkmk)


 (defun jfc-recompile ()
   "switch to '*compilation*' buffer and rerun make"
   (interactive)
   (let ((compilation-read-command nil))
     (switch-to-buffer "*compilation*")
     (compile compile-command)))

 (global-set-key [f12] 'jfc-recompile)

;; ;;
;; ;; use my patched version of filladapt.el-2.12
;; ;;
;; ;; see <http://www.python.org/emacs/cc-mode/filladapt.html>
;; ;;
;; ;; for details
(require 'filladapt )
(setq-default filladapt-mode t)

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;; cc-mode indentation customizations

 ; block indentation to 4 spaces.  "bsd" style also indents blocks 4
 ; spaces.
 (setq c-default-style '((other . "stroustrup")))

 (defun my-c-mode-common-hook ()
   (global-set-key [M-C-a] 'c-beginning-of-defun)
   (global-set-key [M-C-e] 'c-end-of-defun)
   (local-set-key "^[\344" (quote jfc-insert-date-brief))
   ;(c-setup-filladapt)
   ;(filladapt-mode 1)
   (setq fill-column 78)
   ;; my customizations for all of c-mode, c++-mode, objc-mode,
java-mode

   ; no indentation for opening brace.
   (c-set-offset 'substatement-open 0)

   ; no indentation for C++ namespaces or extern "C" bodies.
   (c-set-offset 'innamespace 0)
   (c-set-offset 'inextern-lang 0)

   ;;;;;;;;;;;;;;;; trying out Ken I's indentation style
   (c-set-offset (quote arglist-intro) (quote ++) nil)
   (c-set-offset (quote arglist-close) 0 nil)
   ;;;;;;;;;;;;;;;;

   ; don't add indentation between the closing paren ')' of a function
   ; declaration and the opening brace '{' of the function body.
   ;   - this fixes the problem of 'indent-region' and friends
   ;     indenting the 'docgen' "Synopsis:" comment.
   (c-set-offset 'knr-argdecl-intro 0))

 (add-hook 'c-mode-common-hook 'my-c-mode-common-hook)

 ;;
 ;; configure behavior of 'c-electric-brace'
 (setq c-hanging-braces-alist '((brace-list-open)
                                (brace-entry-open)
                                (block-close . c-snug-do-while)
                                (extern-lang-open after)
                                (inexpr-class-open after)
                                (inexpr-class-close before)))
 ;;
 (setq c-electric-pound-behavior '(alignleft))

 ;;
 ;; when indenting struct {...}, cc-mode ignores the indentation of the
 ;; previous line and idents according to `c-basic-offset'.  For files
 ;; in which Venkata has indented a struct decl 4 spaces, when I add
 ;; lines indented 2 spaces it looks awful.  The following function
 ;; allows me to toggle between my c-basic-offset (2) and venkata's (4)
 ;; on a per buffer basis.
 ;;
 (defun my-toggle-c-basic-offset ()
   "make `c-basic-offset' buffer local and toggle it between 2 and 4."
   (interactive)
   (make-local-variable 'c-basic-offset)
   (if (equal 2 c-basic-offset)
       (setq c-basic-offset 4)
     (setq c-basic-offset 2)
     )
   (message "c-basic-offset is now %d" c-basic-offset)
   )
 ;(global-set-key [f1] 'my-toggle-c-basic-offset)

 (defun my-toggle-tab-width ()
   "make `tab-width' buffer local and toggle it between 8 and 4."
   (interactive)
   (make-local-variable 'tab-width)
   (if (equal 8 tab-width)
       (setq tab-width 4)
     (setq tab-width 8)
     )
   (message "tab-width is now %d" tab-width)
   )
 (global-set-key [f35] 'my-toggle-tab-width)

 (defun my-insert-buffer-name (arg)
   "da da da"
   (interactive "P")
   ; ignore `arg' for now
   (message "inserted buffer name")
   (insert (buffer-name)))

 (global-set-key [f20] 'my-insert-buffer-name) ;; "cut" key

;; (defun my-write-abbrev-file (arg)
;;   "write abbrevs to /home/jcano/.emacs.abbrevs"
;;   (interactive "P")
;;   (message "writing abbrevs to %s" abbrev-file-name)
;;   (write-abbrev-file abbrev-file-name))

;; (global-set-key [f33] 'my-write-abbrev-file)

;; (defun my-add-mode-abbrev (arg)
;;   "create an abbrev for text between mark and point."
;;   (interactive "P")
;;   (add-mode-abbrev 0))

;; (global-set-key [f31] 'my-add-mode-abbrev)

;; ;; scratchpad: abbrev stuff
;; (fset 'my-abbrev-next-point [?\C-s ?@ ?\C-m backspace])
;; (global-set-key "\C-cn" (quote my-abbrev-next-point))


;; ;;;;;;;;;;;;;;;;
;; ;;;;;;;;;;;;;;;;


;; (defun my-toggle-vm-mutable ()
;;   "toggle `vm-mutable-frames'.  This controls whether or not vm
opens new frames for folders, mail messages etc.

;; Sneaky, also disable framepop"
;;   (interactive)
;;   (if (equal nil vm-mutable-frames)
;;       (progn
;;         (setq  vm-mutable-frames t)
;;         (framepop-enable))
;;     (progn
;;       (setq  vm-mutable-frames nil)
;;       (framepop-disable))
;;     )
;;   (message "vm-mutable-frames is now %s" vm-mutable-frames)
;;   )

;; (defun from-home-setup ()
;;   "initialize emacs for working at home."
;;   (interactive)
;;     (setq  vm-mutable-frames nil)
;;     (framepop-disable)
;;     (make-frame-command)
;;     (make-frame-command)
;;     (display-time)         ;; this keeps the VPN, X-window open.
;;     ())

(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)

 ;; I'm getting tired of hitting C-xC-c by accident and blowing me out
of emacs
 (defun kwi-kill-emacs nil
   "Issue a message to indicate the command to use to kill emacs"
   (interactive)
   (beep)
   (message "Use 'save-buffers-kill-emacs' or 'kill-emacs' to exit
emacs"))
 (global-set-key "\C-x\C-c" 'kwi-kill-emacs)
 (global-unset-key "\C-x\C-z")


;(setq debug-on-error t)
;(setq debug-on-error nil)

;; ; ;;
;; ; ;; tar and untar files in DIRED mode.
;; ; ;;
;; (add-hook 'dired-mode-hook
;; 	  (function
;; 	   (lambda ()
;; 	     (define-key dired-mode-map "T" 'dired-tar-pack-unpack))))

;; (autoload 'dired-tar-pack-unpack "dired-tar.el")
(autoload 'python-mode "python-mode")

;; ;(require 'jka-compr)

(set-cursor-color "Yellow")
(set-mouse-color "Green")

(setq ange-ftp-default-user "anonymous")


;; ;(require 'bbdb)
;; ;(bbdb-initialize 'vm 'sc)


;; ;setq bbdb-print-format-files
'("/home/jcano/elisp/bbdb_tmp/bbdb-tex-3.0/bbdb-print"
"/home/jcano/elisp/bbdb_tmp/bbdb-tex-3.0/multicol"))
;; ; (setq bbdb-print-file-name "~/.mail/bbdb.tex")
;; ; (setq bbdb-print-elide '(tex-name aka mail-alias nic nic-updated
dossier project creation-date timestamp texme))
;; ; (setq bbdb-print-require 'texme)

;; ;----------------------------------------------
;; ;---------- autoload --------------------------
;; ;----------------------------------------------
;; ; (autoload 'vm "vm"
;; ; "  Function: Read mail in Emacs." t)
;; ; (autoload 'vm-other-frame "vm"
;; ; "  Function: Read mail in Emacs." t)

;; ; (global-set-key "\C-xm" 'vm-mail)
;; ; (autoload 'vm-mail "vm"
;; ; "  Function: send mail in Emacs." t)

;; ;------- swap ENTER and LFD key bindings ----------
(global-set-key "\C-m" 'newline-and-indent)  ;; ENTER/RETURN key
binding
(global-set-key "\C-j" 'newline)


;;*********************************************
;;  begin cursor motion customization
;;*********************************************
;;
;; scroll window up, move cursor down
;;
(defun jc-scroll-win-up (arg)
  "scrolls the window up while cursoring down while keeping the
   cursor on the same line."
  (interactive "p")
  (scroll-up arg)
;    (next-line arg)
	)

(global-set-key (quote [C-down]) (quote jc-scroll-win-up))
;;
;; scroll window down, move cursor up ...
;;
(defun jc-scroll-win-down (arg)
  "scrolls the window down while cursoring up while keeping the
   cursor on the same line."
  (interactive "p")
  (scroll-down arg)
;    (previous-line arg)
	)

(global-set-key (quote [C-up]) (quote jc-scroll-win-down))

;;;; horizontal scrolling with the cursor keys.

(defun jfc-scroll-left-1 (arg)
  "scroll left default to 1 column"
  (interactive "p")
  (scroll-left arg))
(defun jfc-scroll-right-1 (arg)
  "scroll right default to 1 column"
  (interactive "p")
  (scroll-right arg))
(global-set-key (quote [C-right]) (quote jfc-scroll-right-1))
(global-set-key (quote [C-left]) (quote jfc-scroll-left-1))

(defun jfc-scroll-left-16 (arg)
  "scroll left default to 1 column"
  (interactive "p")
  (scroll-left (* arg 16)))

(defun jfc-scroll-right-16 (arg)
  "scroll right default to 1 column"
  (interactive "p")
  (scroll-right (* arg 16)))
(global-set-key (quote [M-right]) (quote jfc-scroll-right-16))
(global-set-key (quote [M-left]) (quote jfc-scroll-left-16))


;; ; ;;;;; gnuserv, gnuclientw -- load files into existing emacs
instance.
;; ; (load-library "gnuserv")
;; ; (gnuserv-start)

;; ;;;; having problems with `gnuclientw' in cygwin's bash.  I also
;; ;;;; noticed that if I accidentally start a second emacs (when
gnuserv
;; ;;;; is in this .emacs) then one emacs session pegs the CPU at 100%
so
;; ;;;; I'm disabling this feature for now. 2005/01/14



;; (defun byte-compile-dot-emacs ()
;;   "byte-compile this .emacs.el file"
;;   (byte-compile-file "./.emacs.el")
;;   nil)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; command to remove ^M characters from a buffer

(defun carriage-return-remove ()
  "remove all carriage-return characters from the current buffer"
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (replace-string "
" "" nil)
    )
  )

(global-set-key [f6] 'carriage-return-remove)

;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;; from
;; ;;       http://cygwin.com/faq/faq_4.html#SEC62
;; ;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;; This assumes that Cygwin is installed in C:\cygwin (the
;; ;; default) and that C:\cygwin\bin is not already in your
;; ;; Windows Path (it generally should not be).
;; ;;
;; (setq exec-path (cons "C:/cygwin/bin" exec-path))
;; (setenv "PATH" (concat "C:\\cygwin\\bin;" (getenv "PATH")))
;; ;;
;; ;; NT-emacs assumes a Windows command shell, which you change
;; ;; here.
;; ;;
;; (setq process-coding-system-alist '(("bash" . undecided-unix)))
;; (setq shell-file-name "bash")
;; (setenv "SHELL" shell-file-name)
;; (setq explicit-shell-file-name shell-file-name)
;; ;;
;; ;; This removes unsightly ^M characters that would otherwise
;; ;; appear in the output of java applications.
;; ;;
;; (add-hook 'comint-output-filter-functions
;; 	  'comint-strip-ctrl-m)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;; The latest version of cygwin-mount.el can always be found at
;; ;; http://www.blarg.net/~offby1/cygwin-mount/
;; ;
;; ; 'cygwin-mount' makes emacs/gdb mode work properly under cygwin.
In
;; ; particular, it helps emacs find source files.  We need this
because
;; ; gdb is a cygwin program and uses unix/cygwin style file name paths
;; ; (e.g. "/home/jcano/.emacs") while GNU emacs for NT is an MSWindows
;; ; Program that understands DOS style file names
;; ; (e.g. "C:/cygwin/home/jcano/.emacs").  the cygwin-mount.el package
;; ; bridges this gap.
;; ;

;; (require 'cygwin-mount)
;; (cygwin-mount-activate)

;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'calc-macs)
;(require 'calc)


(require 'info)
(setq Info-directory-list-original Info-directory-list)
;;;; why does `Info-directory-list' get set to nil when the following
;;;; setq is not present?
(setq Info-directory-list Info-default-directory-list)

(add-to-list 'Info-directory-list "/homes/jcano/elisp/site-info" t )
(add-to-list 'Info-directory-list "/usr/info" t)
(add-to-list 'auto-mode-alist '("\\.py\\'" . python-mode))
;; (add-to-list 'auto-mode-alist '("\\.xsd\\'" . sgml-mode))

(defun jfc-asm-mode-customization  ()
  "asm-mode customization"
  (require 'cc-mode)
  (local-set-key "\C-c\C-n" 'c-forward-conditional)
  (local-set-key "\C-c\C-p" 'c-backward-conditional)
  (local-set-key "\C-j"     'self-insert-command)
  (local-set-key ":"     'self-insert-command)
  )

(add-to-list 'auto-mode-alist '("\\.inc\\'" . asm-mode))
(add-hook 'asm-mode-hook (function cscope:hook))
(add-hook 'asm-mode-hook (function jfc-asm-mode-customization))

;; TSP3 disassembly, provided by ME.
(require 'tsp3-disassem)
(global-set-key [f8] 'tsp3-disassem-point)


;; ;;;
;; ;
;; ; (remove-hook 'local-write-file-hooks 'byte-compile-dot-emacs)
;; ; eval: (add-hook 'local-write-file-hooks 'byte-compile-dot-emacs)
;; ; eval: (add-hook 'after-save-hook 'byte-compile-dot-emacs)
;; ;(remove-hook 'after-save-hook 'byte-compile-dot-emacs)
(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.
 )
;; ; Local variables:
;; ; End:




;; (put 'set-goal-column 'disabled nil)


;;; Commands added by calc-private-autoloads on Tue Jan  9 21:42:32
2001.
(autoload 'calc-dispatch	   "calc" "Calculator Options" t)
(autoload 'full-calc		   "calc" "Full-screen Calculator" t)
(autoload 'full-calc-keypad	   "calc" "Full-screen X Calculator" t)
(autoload 'calc-eval		   "calc" "Use Calculator from Lisp")
(autoload 'defmath		   "calc" nil t t)
(autoload 'calc			   "calc" "Calculator Mode" t)
(autoload 'quick-calc		   "calc" "Quick Calculator" t)
(autoload 'calc-keypad		   "calc" "X windows Calculator" t)
(autoload 'calc-embedded	   "calc" "Use Calc inside any buffer" t)
(autoload 'calc-embedded-activate  "calc" "Activate =>'s in buffer" t)
(autoload 'calc-grab-region	   "calc" "Grab region of Calc data" t)
(autoload 'calc-grab-rectangle	   "calc" "Grab rectangle of data" t)
;(setq load-path (nconc load-path (list "~/elisp/site-lisp")))
(global-set-key "\e#" 'calc-dispatch)
;;; End of Calc autoloads.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; trying to configure VM.  see also: '~/.vm' file.
;;
   (autoload 'vm "vm" "Start VM on your primary inbox." t)
   (autoload 'vm-other-frame "vm" "Like `vm' but starts in another
frame." t)
   (autoload 'vm-visit-folder "vm" "Start VM on an arbitrary folder."
t)
   (autoload 'vm-visit-virtual-folder "vm" "Visit a VM virtual folder."
t)
   (autoload 'vm-mode "vm" "Run VM major mode on a buffer" t)
   (autoload 'vm-mail "vm" "Send a mail message using VM." t)
   (autoload 'vm-submit-bug-report "vm" "Send a bug report about VM."
t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun my-query-cuddle-else ()
  "fix those uncuddled 'else' statements!"
  (interactive )
;; regexp below is whitespace sensitive!
  (query-replace-regexp "}
+\\s-*else" "} else" nil nil nil))

;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;; VC customization:

(require 'vc)

(defadvice vc-next-action-on-file
  (before vc-next-action-dont-register-cvs (file verbose &optional
comment))
  "Abort if vc-next-action-on-file if the next action is ...

to register the file for CVS"

  (if (and (not (vc-backend file)) (file-exists-p "CVS"))
      (error "Yo! use vc-register to add files to CVS!")))

(ad-activate 'vc-next-action-on-file)

(put 'narrow-to-region 'disabled nil)

(put 'upcase-region 'disabled nil)

(put 'downcase-region 'disabled nil)

^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~2006-10-08 13:49 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2006-10-06 22:46 how NOT to remove trailing whitespace? funkyj
2006-10-07  1:47 ` Eric Hanchrow
     [not found] ` <mailman.7847.1160186341.9609.help-gnu-emacs@gnu.org>
2006-10-08 13:49   ` Mathias Dahl

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).