PERL   38

dot xemacs init

Guest on 18th August 2022 01:22:38 AM

  1. ;; Alexandre Dulaunoy - adulau@foo.be xemacs init (quite classical)
  2. ;;
  3.  
  4. ;; Are we running XEmacs or Emacs?
  5. (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))
  6.  
  7. ;; Set up the keyboard so the delete key on both the regular keyboard
  8. ;; and the keypad delete the character under the cursor and to the right
  9. ;; under X, instead of the default, backspace behavior.
  10. (global-set-key [delete] 'delete-char)
  11. (global-set-key [kp-delete] 'delete-char)
  12.  
  13. ;; Turn on font-lock mode for Emacs
  14. (cond ((not running-xemacs)
  15.        (global-font-lock-mode t)
  16. ))
  17.  
  18. ;; Visual feedback on selections
  19. (setq-default transient-mark-mode t)
  20.  
  21. ;; Always end a file with a newline
  22. (setq require-final-newline t)
  23.  
  24. ;; Stop at the end of the file, not just add lines
  25. (setq next-line-add-newlines nil)
  26.  
  27. ;; Enable wheelmouse support by default
  28. (cond (window-system
  29.        (mwheel-install)
  30. ))
  31.  
  32. (setq gnus-init-file "~/.gnus")

Raw Paste


Login or Register to edit or fork this paste. It's free.