From: "Bernhard Koenig" <b.a.koenig@googlemail.com>
To: "Lennart Borgman" <lennart.borgman@gmail.com>, emacs-devel@gnu.org
Subject: Re: bug#1246: Bug : 23.0.60; "customize emacs" overwrites "custom-set-variables" in .emacs
Date: Sat, 25 Oct 2008 14:27:35 -0400 [thread overview]
Message-ID: <de34c09f0810251127r111d2984w2f48dac53e3c38ab@mail.gmail.com> (raw)
In-Reply-To: <e01d8a50810250615g3de8a01em95d06a992d49892c@mail.gmail.com>
Hi,
I currently have Emacs 23.0.60 and downloaded it Oct 12 from the
Ubuntu repositories. I will paste my .emacs, at one point the
custom-set-variables were overwritten and the tex-output-view-style
settings were completely deleted. I can try to reproduce the bug later
tonight.
Best,
Bernhard
;; no message at startup
(setq inhibit-startup-message t)
;; format the title-bar to always include the buffer name
(setq frame-title-format "emacs - %b")
(setq icon-title-format "emacs - %b")
;; format modeline bar
(display-battery-mode t)
;(size-indication-mode t)
;; minibuffer does not expand
(setq resize-mini-windows nil)
;; scrollbar to the right
(set-scroll-bar-mode 'right)
;; text mode and auto-fill
(setq default-major-mode 'text-mode)
(add-hook 'text-mode-hook 'text-mode-hook-identify)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
;; Latex settings
(add-hook 'LaTeX-mode-hook 'LaTeX-install-toolbar)
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil)
(setq-default TeX-header-end nil)
(add-hook 'TeX-mode-hook '(lambda () (TeX-fold-mode 1)))
(autoload 'turn-on-reftex "reftex" "RefTeX Minor Mode" nil)
(autoload 'reftex-citation "reftex-cite" "Make citation" nil)
(add-hook 'LaTeX-mode-hook 'turn-on-reftex) ; with AUCTeX LaTeX mode
(add-hook 'latex-mode-hook 'turn-on-reftex) ; with Emacs LaTex mode
(setq reftex-plug-into-AUCTeX t
reftex-enable-partial-scans t)
;; mouse pointer hides from cursor
(mouse-avoidance-mode 'animate)
;;cursor does not blink
(blink-cursor-mode nil)
;; no super-fast mouse scrolling
(mouse-wheel-mode t)
(setq mouse-wheel-progressive-speed nil)
;; show trailing whitespaces and remove on save
(setq-default show-trailing-whitespace t)
(add-hook 'before-save-hook 'delete-trailing-whitespace)
;; show matching parentheses
(show-paren-mode 1)
;; change default shell to zsh
(setq shell-file-name "/bin/zsh")
;; recent files
(require 'recentf)
(recentf-mode 1)
(setq recentf-max-menu-items 50)
(recentf-open-files nil "*Recent Files*") ; startup with recent files
(global-set-key "\C-x\ \C-r" 'recentf-open-files) ; C-x C-r keybinding
;; auto time stamps patch
(add-hook 'html-mode-hook '(lambda ()
;; keymap additions
(define-key html-mode-map "\C-ct"
'html-helper-insert-timestamp-delimiter-at-point)
;; additional mode vars
(defvar html-helper-timestamp-start
"<!-- hhmts start -->\n"
"*Start delimiter for timestamps.")
(defvar html-helper-timestamp-end
"<!-- hhmts end -->"
"*End delimiter for timestamps.")
;; additional mode functions
(defun html-helper-insert-timestamp ()
"Timestamp insertion function"
(insert "Last modified: "
(format-time-string
"%e %B %Y at %H:%M GMT."
(current-time)
t)
"\n"))
(defun html-helper-update-timestamp ()
(save-excursion
(goto-char (point-max))
(if (not (search-backward
html-helper-timestamp-start nil t))
(message "timestamp delimiter start was not
found. Type C-c t to insert one.")
(let ((ts-start (+ (point) (length
html-helper-timestamp-start)))
(ts-end (if (search-forward
html-helper-timestamp-end nil t)
(- (point) (length
html-helper-timestamp-end))
nil)))
(if (not ts-end)
(message "timestamp delimiter end was
not found. Type C-c t to insert one.")
(delete-region ts-start ts-end)
(goto-char ts-start)
(html-helper-insert-timestamp))))) nil)
;; timestamp will update on file write
(add-hook 'local-write-file-hooks
'html-helper-update-timestamp)))
(custom-set-variables
'(load-home-init-file t t)
'(TeX-output-view-style (quote (
("^dvi$" "." "xdvi -s 6 %d")
("^pdf$" "." "evince %o")
("^html$" "." "firefox %o")))))
(custom-set-faces)
;(defun toolbar-open-file ()
; (interactive)
; (recentf-open-file)
;)
;; the following requires cursor-chg.el
;(require 'cursor-chg)
;(change-cursor-mode 1) ; enable read-only/input mode
;(toggle-cursor-type-when-idle 1) ; enable idle mode
; changed "Red" to "cursor-color" and 'bar to 'hbar in cursor-chg.el
;
;(setq curchg-default-cursor-color 'cursor-color) ; default color
;(setq curchg-default-cursor-type 'hbar) ; default type
;(setq curchg-idle-cursor-type 'box) ; idle type
;(setq curchg-input-method-cursor-color 'yellow) ; input mode color
;(setq curchg-overwrite/read-only-cursor-type 'hollow) ; read-only type
;; comments in italics
(make-face-italic 'font-lock-comment-face)
(make-face-italic 'font-lock-comment-delimiter-face)
;; my own color themes
; blue theme
(defun theme-blue ()
"Switch to blue theme."
(interactive)
(set-cursor-color "gold")
(set-face-background 'modeline "khaki")
(set-face-foreground 'modeline "black")
(set-background-color "navy")
(set-foreground-color "white")
(set-face-foreground 'font-lock-comment-face "chocolate1")
(set-face-foreground 'font-lock-string-face "light salmon")
(set-face-foreground 'font-lock-keyword-face "cyan1")
(set-face-foreground 'font-lock-builtin-face "lightsteelblue")
)
; red theme
(defun theme-red ()
"Switch to red theme."
(interactive)
(set-background-color "darkred")
(set-foreground-color "white")
(set-cursor-color "lawngreen")
(set-face-background 'modeline "orange1")
(set-face-foreground 'modeline "black")
(set-face-foreground 'font-lock-comment-face "gold")
(set-face-foreground 'font-lock-string-face "palegreen2")
(set-face-foreground 'font-lock-keyword-face "cyan1")
(set-face-foreground 'font-lock-builtin-face "lightsteelblue")
)
; snow theme
(defun theme-snow ()
"Switch to snow theme."
(interactive)
(set-background-color "snow2")
(set-foreground-color "gray0")
(set-cursor-color "orange red")
(set-face-background 'modeline "midnight blue")
(set-face-foreground 'modeline "white")
(set-face-foreground 'font-lock-comment-face "green3")
(set-face-foreground 'font-lock-string-face "blue2")
(set-face-foreground 'font-lock-keyword-face "magenta3")
(set-face-foreground 'font-lock-builtin-face "deep pink")
)
;; pick theme after fully parsing .emacs
(theme-red)
On Sat, Oct 25, 2008 at 9:15 AM, Lennart Borgman
<lennart.borgman@gmail.com> wrote:
> On Sat, Oct 25, 2008 at 2:30 AM, Bernhard Koenig
> <b.a.koenig@googlemail.com> wrote:
>> I used the "customize emacs" options and made permanent changes
>> (regarding fonts if I remember correctly). Emacs
>> changed the .emacs file on disk and modified the
>> "custom-set-variables". The problem was that all the old
>> custom-set-variables (like tex-output-view-style and stuff) were
>> completely overwritten.
>>
>> Don't know if this is intended but it's quite annoying.
>
> When you choose to make the changes permanent it should write that to
> custom-file (which by default is your .emacs). It should however
> include all the old values. If it did not then something is wrong.
>
> Can you show us your .emacs? Was there perhaps several
> custom-set-variables entry in it?
>
> Also the normal information in the bug report is missing (date you did
> a check out from the CVS repositories beeing the most important). Can
> you tell us that?
>
next prev parent reply other threads:[~2008-10-25 18:27 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2008-10-25 0:30 bug#1246: Bug : 23.0.60; "customize emacs" overwrites "custom-set-variables" in .emacs Bernhard Koenig
2008-10-25 13:15 ` Lennart Borgman
2008-10-25 18:27 ` Bernhard Koenig [this message]
2011-07-10 2:09 ` Glenn Morris
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=de34c09f0810251127r111d2984w2f48dac53e3c38ab@mail.gmail.com \
--to=b.a.koenig@googlemail.com \
--cc=emacs-devel@gnu.org \
--cc=lennart.borgman@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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.