* font lock and version 21.2.1 with redhat 8.0
@ 2003-04-15 10:11 Bigslick
2003-04-15 10:40 ` David Kastrup
0 siblings, 1 reply; 2+ messages in thread
From: Bigslick @ 2003-04-15 10:11 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 11785 bytes --]
Hi,
I just upgraded to redhat 8.0 and am having trouble with the font-lock
updating slowly. In previous versions, syntax would be highlighted as I
as typing. Now, I have to manually turn font-lock-mode on and off in
order to have my syntax highlight. I currently have version 21.2.1.
TIA
---
Here is what I get from "Save Settings"
(put 'downcase-region 'disabled 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.
'(current-language-environment "English")
'(global-font-lock-mode t nil (font-lock))
'(show-paren-mode t nil (paren))
'(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
'(transient-mark-mode t))
---
Here is my .emacs
;;SECTION: font lock preferences
; actually, disable (for tags search) until
; C-S-l or something is done? (nevermind - etags
; can search a file without visiting it)
(load-library "font-lock")
(global-set-key [?\C-\S-l] 'font-lock-mode)
(global-font-lock-mode t)
(setq font-lock-maximum-decoration t)
(setq font-lock-face-attributes
;; a tool for picking colors and fonts more fluently would be
;; welcome - could run ito in frame B with code in frame A
;; to view changes in realtime (could drag and drop be faked
;; in emacs?)
;; in more detail:
;; mung through emacs-19.nn/etc/rgb.txt
;; group by R>G>B (6 groups), R=G>B (3), R>G=B (3) and
;; R=G=B (1), then separate into 12 groups by hue
;; (based on top 2 colors (or top 1, if one of R>G=B -
;; (R=G=B in a separate group)), then sort by saturation
;; (ratio of top 2 colors to 3rd) and brightness (total
;; (of R,G and B). Create a minimal frame for each hue
;; (small font?), put each color name in a 3x8 box
;; (color as foreground on top and bottom line, as
;; background on middle line (reduplicate name if short))
;; frame is whatever size (squarish) rectangle (saturation
;; on one axis, brightness on the other) is needed
;; for the # of colors of that hue. Set up some frames
;; for fonts, too, allow drag and drop onto face names.
;; (might be another frame with each of the 12 hues +
;; white/gray/black to pop a hue's frame to front)
'((font-lock-comment-face "Orange")
(font-lock-string-face "LightSalmon")
(font-lock-keyword-face "SandyBrown")
(font-lock-function-name-face "Salmon")
(font-lock-variable-name-face "Sienna1")
(font-lock-type-face "Goldenrod1")
(font-lock-reference-face "Goldenrod1")))
(setq compile-command "make -k")
(global-set-key "\^x\^e" 'compile)
(global-set-key "\^x\^j" 'jdb)
(global-set-key "\eG" 'goto-line)
(global-set-key "\eg" 'grep)
(global-set-key "\eW" 'kill-region)
(global-set-key "\eq" 'query-replace)
(global-set-key "\eQ" 'query-replace-regexp)
(global-set-key "\eZ" 'shell)
(global-set-key "\eo" 'occur)
(global-set-key "\^x\^r" 'rename-uniquely)
(global-set-key "\^x\^R" 'rename-buffer)
(global-set-key "\^xa" 'append-to-file)
(global-set-key "\C-cbs" 'backward-sexp)
(global-set-key [(shift f3)] (lambda () (interactive) (switch-to-buffer
"*scratch*")))
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)
;; better buffer cycling
(global-set-key [(control return)] 'forward-buffer)
(global-set-key [(shift return)] 'backward-buffer)
;; cycle through buffers, ignoring uninteresting ones
(defun backward-buffer () (interactive)
"Switch to previously selected buffer."
(let* ((list (cdr (buffer-list)))
(buffer (car list)))
(while (and (cdr list) (string-match "\\*" (buffer-name buffer)))
(progn
(setq list (cdr list))
(setq buffer (car list))))
(bury-buffer)
(switch-to-buffer buffer)))
(defun forward-buffer () (interactive)
"Opposite of backward-buffer."
(let* ((list (reverse (buffer-list)))
(buffer (car list)))
(while (and (cdr list) (string-match "\\*" (buffer-name buffer)))
(progn
(setq list (cdr list))
(setq buffer (car list))))
(switch-to-buffer buffer)))
;; Font-Lock is a syntax-highlighting package. When it is enabled and you
;; are editing a program, different parts of your program will appear in
;; different fonts or colors. For example, with the code below, comments
;; appear in red italics, function names in function definitions appear in
;; blue bold, etc. The code below will cause font-lock to automatically be
;; enabled when you edit C, C++, Emacs-Lisp, and many other kinds of
;; programs.
(setq font-lock-use-default-fonts nil)
(setq font-lock-use-default-colors t)
;;; Display the time on modeline
(condition-case err
(display-time)
(error
(message "Cannot display time %s" (cdr err))))
;;; This is to not display the initial message (which says to a novice
;;; user what to do first if he/she is confused).
(setq inhibit-startup-message t)
;;; Highlight during query
(setq query-replace-highlight t)
;;;
;;; Highlight incremental search
(setq search-highlight t)
;;;
;;; Automatically makes the matching paren stand out in color.
(condition-case err
(show-paren-mode t)
(error
(message "Cannot show parens %s" (cdr err))))
;;;
;; set the tab width
;; (setq tab-width 2)
;; (setq tab-interval 2)
;; try to get tab-width taken care of in java mode
(add-hook 'java-mode-hook (function (lambda()
(setq c-basic-offset 1))))
;;)))
;; set default font
;; (set-default-font "-*-clean-medium-r-normal-*-8-*-75-75-*-50-iso8859-1")
;; try to set the indentation to two spaces
(setq c-indent-level 1)
;; Change the indentation amount to 4 spaces instead of 2.
;; You have to do it in this complicated way because of the
;; strange way the cc-mode initializes the value of `c-basic-offset'.
(add-hook 'c-mode-hook (lambda () (setq c-basic-offset 1)))
;; Set frame size and position
;; (set-frame-position (selected-frame) 70 5)
;; (set-frame-height (selected-frame) 80)
;; (set-frame-width (selected-frame) 81)
(setq transient-mark-mode t)
;; PERL STUFF
(setq perl-indent-level 1)
(setq set-cursor-color "red")
;; all of this was just to get the red cursor color
(setq default-frame-alist
'(
;; (top . 50) (left . 350)
(width . 81) (height . 75)
(cursor-color . "red")
(cursor-type . box)
(foreground-color . "black")
(background-color . "white")
;; (font . "-*-clean-medium-r-normal-*-8-*-75-75-*-50-iso8859-1")
;; (font . "-*-clean-*-*-*-*-6-60-*-*-*-50-*-*")
;; (font . "-*-clean-*-*-*-*-*-80-*-*-*-*-*-*")
;; (font . "-*-clean-*-*-*-*-*-100-*-*-*-*-*-*")
;; (font . "-*-lucidatypewriter-medium-*-normal-*-*-*-*-*-*-60-*-*")
;; (font . "-*-clean-*-*-*-*-*-*-*-*-*-50-*-*")
;; (font . "-*-clean-*-*-*-*-8-*-*-*-*-50-*-*")
(font . "fixed")
(vertical-scroll-bars . "right")))
(put 'upcase-region 'disabled nil)
; Make Text mode the default mode for new buffers
; turn on Auto Fill mode automatically in Text mode
; Set the fill column to 80 (gives 80 column wide lines)
(setq default-major-mode 'text-mode)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
(setq-default fill-column 80)
;; Set my email address for whatever.
(setq user-mail-address "dtliu@cs.berkeley.edu")
;; Use column and line numbering.
(line-number-mode 1)
(column-number-mode 1)
(global-set-key [f2] 'eval-buffer)
(global-set-key "\C-x\C-h" 'winHeight)
;; open up todo list
(global-set-key "\C-x\C-t" 'todo)
(defun todo ()
(interactive)
(find-file "~/work/griddb/TODO"))
;; open up todo list
(global-set-key "\C-x\C-p" 'papers)
(defun papers ()
(interactive)
(find-file "~/PAPERS"))
;; change the height of the current window
(defun winHeight ()
(interactive)
(set-frame-height (selected-frame) 84))
;; TEMPORARY STUFF
;; open up todo list
(global-set-key "\C-cftd" 'TaskList)
(defun TaskList ()
(interactive)
(find-file "~/TODO"))
;; open up paper list
(global-set-key "\C-cfp" 'openPapers)
(defun openPapers ()
(interactive)
(find-file "~/PAPERS"))
;; open up david's journal
(global-set-key "\C-cfjd" 'DavidJournal)
(defun DavidJournal ()
(interactive)
(find-file "~/logs/journal"))
;; open up tina's journal
(global-set-key "\C-cfjt" 'TinaJournal)
(defun TinaJournal ()
(interactive)
(find-file "~/logs/tinaJournal"))
;; open up telegrid notes
(global-set-key "\C-cftn" 'TelegridNotes)
(defun TelegridNotes ()
(interactive)
(find-file "~/work/cnt/telegrid/notes"))
;; open up .emacs
(global-set-key "\C-cfen" 'dotEmacs)
(defun dotEmacs ()
(interactive)
(find-file "~/.emacs"))
;; open up .emacs
(global-set-key "\C-cfej" 'dotEmacsJava)
(defun dotEmacsJava ()
(interactive)
(find-file "~/.emacs.java"))
;; TO GET JDEE TO work
(setq debug-on-error t)
;; eieio
(add-to-list 'load-path "/usr/share/emacs/site-lisp/eieio-0.16")
;;;; speedbar stuff
(add-to-list 'load-path "/usr/share/emacs/site-lisp/speedbar-0.13a")
(autoload 'speedbar-frame-mode "speedbar" "Popup a speedbar frame" t)
(autoload 'speedbar-get-focus "speedbar" "Jump to speedbar frame" t)
(define-key-after (lookup-key global-map [menu-bar tools])
[speedbar] '("Speedbar" . speedbar-frame-mode) [calendar])
(global-set-key [(f4)] 'speedbar-get-focus)
;; Texinfo fancy chapter tags
;;(add-hook 'texinfo-mode-hook (lambda () (require 'sb-texinfo)))
;; current stack display
;;(autoload 'gud-speedbar-buttons "sb-gud" "GUD specific speedbar button
generator.")
;;;; for SEMANTIC
;;<tmp>(add-to-list 'load-path
"/usr/share/emacs/site-lisp/semantic-1.3.3") ; so Emacs can find semantic
;;<tmp>
;;<tmp>(require 'semantic-c) ; for C code integration
;;<tmp>(require 'semantic-el) ; for Emacs Lisp code integration
;;<tmp>(require 'semantic-make) ; for Makefile integration
;;<tmp>(require 'semantic-imenu) ; if you use imenu or wich-function
;;<tmp>(add-hook 'speedbar-load-hook (lambda () (require 'semantic-sb)))
;;<tmp>;; ; for speedbar integration
;;<tmp>(autoload 'semantic-bnf-mode "semantic-bnf" "Mode for Bovine
Normal Form." t)
;;<tmp>(add-to-list 'auto-mode-alist '("\\.bnf$" . semantic-bnf-mode))
;;<tmp>;; ; for editing .bnf parser files.
;;<tmp>(autoload 'semantic-minor-mode "semantic-mode" "Mode managing
semantic parsing." t) ; for semantic-minor-mode
;;<tmp>
;;<tmp>;; for elib
;;<tmp>(add-to-list 'load-path "/usr/share/emacs/site-lisp/elib")
;;<tmp>
;;<tmp>;;;; jdee
;;<tmp>(add-to-list 'load-path "/usr/share/emacs/site-lisp/jde-2.2.8/lisp");
;;<tmp>(require 'jde)
;;<tmp>
;;<tmp>;;;; elibs
;;<tmp>;;/home/dtliu/elibs/elib-1.0
;;<tmp>(custom-set-variables
;;<tmp> '(jde-run-application-class "telegrid.servers.SubmitServer")
;;<tmp> '(jde-db-option-classpath (quote ("/home/dtliu/work/cnt"
"/usr/java/java_cup" "/usr/java/JLex")))
;;<tmp> '(jde-bug-jdk-directory "/usr/java/jdk1.3.1_01")
;;<tmp> '(jde-run-read-app-args t)
;;<tmp> '(jde-db-source-directories (quote ("."
"~/work/cnt/play/simple_calc/" "/home/dtliu/work/cnt/play/"
"/usr/java/java_cup/java_cup/runtime" "/usr/java/java_cup/java_cup")))
;;<tmp> '(jde-run-option-application-args (quote ("-c" "5")))
;;<tmp> '(jde-run-executable-args (quote ("-c" "5")))
;;<tmp> '(jde-db-debugger (quote ("JDEbug" "" . "Executable")))
;;<tmp> '(jde-bug-jpda-directory "/usr/java/jdk1.3.1_01")
;;<tmp> '(jde-bug-vm-includes-jpda-p t)
;;<tmp> '(jde-db-option-application-args ((quote ()))))
;;<tmp>
(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.
)
;; add my macros
(load-file "~/.emacs.java")
(load-file "~/.emacs.macros")
(load-file "~/.emacs.keys")
[-- Attachment #2: .emacs --]
[-- Type: text/plain, Size: 11326 bytes --]
;;SECTION: font lock preferences
; actually, disable (for tags search) until
; C-S-l or something is done? (nevermind - etags
; can search a file without visiting it)
(load-library "font-lock")
(global-set-key [?\C-\S-l] 'font-lock-mode)
(global-font-lock-mode t)
(setq font-lock-maximum-decoration t)
(setq font-lock-face-attributes
;; a tool for picking colors and fonts more fluently would be
;; welcome - could run ito in frame B with code in frame A
;; to view changes in realtime (could drag and drop be faked
;; in emacs?)
;; in more detail:
;; mung through emacs-19.nn/etc/rgb.txt
;; group by R>G>B (6 groups), R=G>B (3), R>G=B (3) and
;; R=G=B (1), then separate into 12 groups by hue
;; (based on top 2 colors (or top 1, if one of R>G=B -
;; (R=G=B in a separate group)), then sort by saturation
;; (ratio of top 2 colors to 3rd) and brightness (total
;; (of R,G and B). Create a minimal frame for each hue
;; (small font?), put each color name in a 3x8 box
;; (color as foreground on top and bottom line, as
;; background on middle line (reduplicate name if short))
;; frame is whatever size (squarish) rectangle (saturation
;; on one axis, brightness on the other) is needed
;; for the # of colors of that hue. Set up some frames
;; for fonts, too, allow drag and drop onto face names.
;; (might be another frame with each of the 12 hues +
;; white/gray/black to pop a hue's frame to front)
'((font-lock-comment-face "Orange")
(font-lock-string-face "LightSalmon")
(font-lock-keyword-face "SandyBrown")
(font-lock-function-name-face "Salmon")
(font-lock-variable-name-face "Sienna1")
(font-lock-type-face "Goldenrod1")
(font-lock-reference-face "Goldenrod1")))
(setq compile-command "make -k")
(global-set-key "\^x\^e" 'compile)
(global-set-key "\^x\^j" 'jdb)
(global-set-key "\eG" 'goto-line)
(global-set-key "\eg" 'grep)
(global-set-key "\eW" 'kill-region)
(global-set-key "\eq" 'query-replace)
(global-set-key "\eQ" 'query-replace-regexp)
(global-set-key "\eZ" 'shell)
(global-set-key "\eo" 'occur)
(global-set-key "\^x\^r" 'rename-uniquely)
(global-set-key "\^x\^R" 'rename-buffer)
(global-set-key "\^xa" 'append-to-file)
(global-set-key "\C-cbs" 'backward-sexp)
(global-set-key [(shift f3)] (lambda () (interactive) (switch-to-buffer "*scratch*")))
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)
;; better buffer cycling
(global-set-key [(control return)] 'forward-buffer)
(global-set-key [(shift return)] 'backward-buffer)
;; cycle through buffers, ignoring uninteresting ones
(defun backward-buffer () (interactive)
"Switch to previously selected buffer."
(let* ((list (cdr (buffer-list)))
(buffer (car list)))
(while (and (cdr list) (string-match "\\*" (buffer-name buffer)))
(progn
(setq list (cdr list))
(setq buffer (car list))))
(bury-buffer)
(switch-to-buffer buffer)))
(defun forward-buffer () (interactive)
"Opposite of backward-buffer."
(let* ((list (reverse (buffer-list)))
(buffer (car list)))
(while (and (cdr list) (string-match "\\*" (buffer-name buffer)))
(progn
(setq list (cdr list))
(setq buffer (car list))))
(switch-to-buffer buffer)))
;; Font-Lock is a syntax-highlighting package. When it is enabled and you
;; are editing a program, different parts of your program will appear in
;; different fonts or colors. For example, with the code below, comments
;; appear in red italics, function names in function definitions appear in
;; blue bold, etc. The code below will cause font-lock to automatically be
;; enabled when you edit C, C++, Emacs-Lisp, and many other kinds of
;; programs.
(setq font-lock-use-default-fonts nil)
(setq font-lock-use-default-colors t)
;;; Display the time on modeline
(condition-case err
(display-time)
(error
(message "Cannot display time %s" (cdr err))))
;;; This is to not display the initial message (which says to a novice
;;; user what to do first if he/she is confused).
(setq inhibit-startup-message t)
;;; Highlight during query
(setq query-replace-highlight t)
;;;
;;; Highlight incremental search
(setq search-highlight t)
;;;
;;; Automatically makes the matching paren stand out in color.
(condition-case err
(show-paren-mode t)
(error
(message "Cannot show parens %s" (cdr err))))
;;;
;; set the tab width
;; (setq tab-width 2)
;; (setq tab-interval 2)
;; try to get tab-width taken care of in java mode
(add-hook 'java-mode-hook (function (lambda()
(setq c-basic-offset 1))))
;;)))
;; set default font
;; (set-default-font "-*-clean-medium-r-normal-*-8-*-75-75-*-50-iso8859-1")
;; try to set the indentation to two spaces
(setq c-indent-level 1)
;; Change the indentation amount to 4 spaces instead of 2.
;; You have to do it in this complicated way because of the
;; strange way the cc-mode initializes the value of `c-basic-offset'.
(add-hook 'c-mode-hook (lambda () (setq c-basic-offset 1)))
;; Set frame size and position
;; (set-frame-position (selected-frame) 70 5)
;; (set-frame-height (selected-frame) 80)
;; (set-frame-width (selected-frame) 81)
(setq transient-mark-mode t)
;; PERL STUFF
(setq perl-indent-level 1)
(setq set-cursor-color "red")
;; all of this was just to get the red cursor color
(setq default-frame-alist
'(
;; (top . 50) (left . 350)
(width . 81) (height . 75)
(cursor-color . "red")
(cursor-type . box)
(foreground-color . "black")
(background-color . "white")
;; (font . "-*-clean-medium-r-normal-*-8-*-75-75-*-50-iso8859-1")
;; (font . "-*-clean-*-*-*-*-6-60-*-*-*-50-*-*")
;; (font . "-*-clean-*-*-*-*-*-80-*-*-*-*-*-*")
;; (font . "-*-clean-*-*-*-*-*-100-*-*-*-*-*-*")
;; (font . "-*-lucidatypewriter-medium-*-normal-*-*-*-*-*-*-60-*-*")
;; (font . "-*-clean-*-*-*-*-*-*-*-*-*-50-*-*")
;; (font . "-*-clean-*-*-*-*-8-*-*-*-*-50-*-*")
(font . "fixed")
(vertical-scroll-bars . "right")))
(put 'upcase-region 'disabled nil)
; Make Text mode the default mode for new buffers
; turn on Auto Fill mode automatically in Text mode
; Set the fill column to 80 (gives 80 column wide lines)
(setq default-major-mode 'text-mode)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
(setq-default fill-column 80)
;; Set my email address for whatever.
(setq user-mail-address "dtliu@cs.berkeley.edu")
;; Use column and line numbering.
(line-number-mode 1)
(column-number-mode 1)
(global-set-key [f2] 'eval-buffer)
(global-set-key "\C-x\C-h" 'winHeight)
;; open up todo list
(global-set-key "\C-x\C-t" 'todo)
(defun todo ()
(interactive)
(find-file "~/work/griddb/TODO"))
;; open up todo list
(global-set-key "\C-x\C-p" 'papers)
(defun papers ()
(interactive)
(find-file "~/PAPERS"))
;; change the height of the current window
(defun winHeight ()
(interactive)
(set-frame-height (selected-frame) 84))
;; TEMPORARY STUFF
;; open up todo list
(global-set-key "\C-cftd" 'TaskList)
(defun TaskList ()
(interactive)
(find-file "~/TODO"))
;; open up paper list
(global-set-key "\C-cfp" 'openPapers)
(defun openPapers ()
(interactive)
(find-file "~/PAPERS"))
;; open up david's journal
(global-set-key "\C-cfjd" 'DavidJournal)
(defun DavidJournal ()
(interactive)
(find-file "~/logs/journal"))
;; open up tina's journal
(global-set-key "\C-cfjt" 'TinaJournal)
(defun TinaJournal ()
(interactive)
(find-file "~/logs/tinaJournal"))
;; open up telegrid notes
(global-set-key "\C-cftn" 'TelegridNotes)
(defun TelegridNotes ()
(interactive)
(find-file "~/work/cnt/telegrid/notes"))
;; open up .emacs
(global-set-key "\C-cfen" 'dotEmacs)
(defun dotEmacs ()
(interactive)
(find-file "~/.emacs"))
;; open up .emacs
(global-set-key "\C-cfej" 'dotEmacsJava)
(defun dotEmacsJava ()
(interactive)
(find-file "~/.emacs.java"))
;; TO GET JDEE TO work
(setq debug-on-error t)
;; eieio
(add-to-list 'load-path "/usr/share/emacs/site-lisp/eieio-0.16")
;;;; speedbar stuff
(add-to-list 'load-path "/usr/share/emacs/site-lisp/speedbar-0.13a")
(autoload 'speedbar-frame-mode "speedbar" "Popup a speedbar frame" t)
(autoload 'speedbar-get-focus "speedbar" "Jump to speedbar frame" t)
(define-key-after (lookup-key global-map [menu-bar tools])
[speedbar] '("Speedbar" . speedbar-frame-mode) [calendar])
(global-set-key [(f4)] 'speedbar-get-focus)
;; Texinfo fancy chapter tags
;;(add-hook 'texinfo-mode-hook (lambda () (require 'sb-texinfo)))
;; current stack display
;;(autoload 'gud-speedbar-buttons "sb-gud" "GUD specific speedbar button generator.")
;;;; for SEMANTIC
;;<tmp>(add-to-list 'load-path "/usr/share/emacs/site-lisp/semantic-1.3.3") ; so Emacs can find semantic
;;<tmp>
;;<tmp>(require 'semantic-c) ; for C code integration
;;<tmp>(require 'semantic-el) ; for Emacs Lisp code integration
;;<tmp>(require 'semantic-make) ; for Makefile integration
;;<tmp>(require 'semantic-imenu) ; if you use imenu or wich-function
;;<tmp>(add-hook 'speedbar-load-hook (lambda () (require 'semantic-sb)))
;;<tmp>;; ; for speedbar integration
;;<tmp>(autoload 'semantic-bnf-mode "semantic-bnf" "Mode for Bovine Normal Form." t)
;;<tmp>(add-to-list 'auto-mode-alist '("\\.bnf$" . semantic-bnf-mode))
;;<tmp>;; ; for editing .bnf parser files.
;;<tmp>(autoload 'semantic-minor-mode "semantic-mode" "Mode managing semantic parsing." t) ; for semantic-minor-mode
;;<tmp>
;;<tmp>;; for elib
;;<tmp>(add-to-list 'load-path "/usr/share/emacs/site-lisp/elib")
;;<tmp>
;;<tmp>;;;; jdee
;;<tmp>(add-to-list 'load-path "/usr/share/emacs/site-lisp/jde-2.2.8/lisp");
;;<tmp>(require 'jde)
;;<tmp>
;;<tmp>;;;; elibs
;;<tmp>;;/home/dtliu/elibs/elib-1.0
;;<tmp>(custom-set-variables
;;<tmp> '(jde-run-application-class "telegrid.servers.SubmitServer")
;;<tmp> '(jde-db-option-classpath (quote ("/home/dtliu/work/cnt" "/usr/java/java_cup" "/usr/java/JLex")))
;;<tmp> '(jde-bug-jdk-directory "/usr/java/jdk1.3.1_01")
;;<tmp> '(jde-run-read-app-args t)
;;<tmp> '(jde-db-source-directories (quote ("." "~/work/cnt/play/simple_calc/" "/home/dtliu/work/cnt/play/" "/usr/java/java_cup/java_cup/runtime" "/usr/java/java_cup/java_cup")))
;;<tmp> '(jde-run-option-application-args (quote ("-c" "5")))
;;<tmp> '(jde-run-executable-args (quote ("-c" "5")))
;;<tmp> '(jde-db-debugger (quote ("JDEbug" "" . "Executable")))
;;<tmp> '(jde-bug-jpda-directory "/usr/java/jdk1.3.1_01")
;;<tmp> '(jde-bug-vm-includes-jpda-p t)
;;<tmp> '(jde-db-option-application-args ((quote ()))))
;;<tmp>
(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.
)
;; add my macros
(load-file "~/.emacs.java")
(load-file "~/.emacs.macros")
(load-file "~/.emacs.keys")
(put 'downcase-region 'disabled 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.
'(current-language-environment "English")
'(global-font-lock-mode t nil (font-lock))
'(show-paren-mode t nil (paren))
'(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
'(transient-mark-mode t))
[-- Attachment #3: Type: text/plain, Size: 151 bytes --]
_______________________________________________
Help-gnu-emacs mailing list
Help-gnu-emacs@gnu.org
http://mail.gnu.org/mailman/listinfo/help-gnu-emacs
^ permalink raw reply [flat|nested] 2+ messages in thread* Re: font lock and version 21.2.1 with redhat 8.0
2003-04-15 10:11 font lock and version 21.2.1 with redhat 8.0 Bigslick
@ 2003-04-15 10:40 ` David Kastrup
0 siblings, 0 replies; 2+ messages in thread
From: David Kastrup @ 2003-04-15 10:40 UTC (permalink / raw)
Bigslick <bigslick_2k@hotmail.com> writes:
> I just upgraded to redhat 8.0 and am having trouble with the
> font-lock updating slowly. In previous versions, syntax would be
> highlighted as I as typing. Now, I have to manually turn
> font-lock-mode on and off in order to have my syntax highlight. I
> currently have version 21.2.1.
How often do you think font lock needs to get loaded? You load it
manually twice and configure it twice.
You should not load it at all (it is autoloaded, anyway) and
configure it once.
--
David Kastrup, Kriemhildstr. 15, 44793 Bochum
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2003-04-15 10:40 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2003-04-15 10:11 font lock and version 21.2.1 with redhat 8.0 Bigslick
2003-04-15 10:40 ` David Kastrup
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.