help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Does anyone have a sample ".gnu-emacs-custom" file I can see ????


From: new2linux
Subject: Does anyone have a sample ".gnu-emacs-custom" file I can see ????
Date: 3 Feb 2005 10:12:39 -0800
User-agent: G2/0.2

if anyone has a sample .gnu-emacs-custom file I can see I'd greatly
appreciate it.

I'm getting this error when I load emacs:

Debugger entered--Lisp error: (invalid-read-syntax ") or . in a
vector")
eval-buffer(#<buffer  *load*<2>> nil "~/.gnu-emacs-custom" nil t)
load-with-code-conversion("/home/dorantes/.gnu-emacs-custom"
"~/.gnu-emacs-cu$
load("~/.gnu-emacs-custom" t t)
(if (string-match "XEmacs\\|Lucid" emacs-version) (progn (if ...
...)) (if (f$
eval-buffer(#<buffer  *load*> nil "~/.emacs" nil t)
load-with-code-conversion("/home/dorantes/.emacs" "~/.emacs" t t)
load("~/.emacs" t t)
#[nil "^H\205\227^@   ?=\203^Q^@?^H?Q\2025^@
?=\203'^@????#\203#^@?\2025^@?\$
command-line()

here's what mine looks like:

(put 'upcase-region 'disabled nil)
"*** set modes during edit ***"
(setq auto-mnode-alist (cons '("\\.txt\\'" . text-mode)
auto-mode-alist))
(setq case-fold-search nil) ; make searches case sensitive
(setq case-fold-search t)   ; make searches case insensitive
(local-unset-key [?\e ?s])
(local-unset-key [?\e ?S])
(global-unset-key [?\e ?s])
(global-unset-key [?\e ?S])
"*** save file and exit ***"
(fset 'save-file-and-exit
"\C-x\C-s\C-x\C-c")
(global-set-key [?\C-x ?\C-n] 'save-file-and-exit)

"*** new line and cursor to column 10 ***"
(fset 'nl-cursor-to-column-10
"\C-e\C-m\C-[10 ")
(global-set-key [?\e ?m] 'nl-cursor-to-column-10)
(global-set-key [?\e ?M] 'nl-cursor-to-column-10)

"*** cursor to column 12 ***"
(fset 'cursor-to-column-12
"\C-e\C-[12 \C-a\C-[12\C-f\C-k\C-o")
(global-set-key [?\e ?n] 'cursor-to-column-12)
(global-set-key [?\e ?N] 'cursor-to-column-12)

"*** cursor to column 22 ***"
(fset 'cursor-to-column-22
"\C-e\C-[22 \C-a\C-[22\C-f\C-k\C-o")
(global-set-key [?\e ?o] 'cursor-to-column-22)
(global-set-key [?\e ?O] 'cursor-to-column-22)

"*** cursor to column 51 ***"
(fset 'cursor-to-column-51
"\C-e\C-[51 \C-a\C-[51\C-f\C-k\C-o")
(global-set-key [?\e ?p] 'cursor-to-column-51)
(global-set-key [?\e ?P] 'cursor-to-column-51)
(global-set-key [?\e ?q] 'query-replace)
(global-set-key [?\e ?Q] 'query-replace)
(global-set-key [?\e ?r] 'replace-string)
(global-set-key [?\e ?R] 'replace-string)
(global-set-key [?\C-x ?l] 'goto-line)
(global-set-key [?\C-x ?L] 'goto-line)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]