mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-27 15:43:13 -07:00
Code Issues Projects Releases Wiki Activity

* lisp/cus-edit.el (custom-save-variables, custom-save-faces): Fix up

Browse source 
indentation of inserted comment.
This commit is contained in:
Antoine Levitt 2010-08-12 10:55:20 +02:00 • committed by Stefan Monnier
parent 94dff98f39
commit 61b6abbdb4
2 changed files with 16 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2010-08-12 Antoine Levitt <antoine.levitt@gmail.com> (tiny change)
* cus-edit.el (custom-save-variables, custom-save-faces): Fix up
indentation of inserted comment.
2010-08-11 Jan Djärv <jan.h.d@swipnet.se>
* faces.el (region): Add type gtk that uses gtk colors.
@ -11,8 +16,8 @@
(sql-product-alist): Add :prompt-cont-regexp property for several
database products.
(sql-prompt-cont-regexp): New variable.
(sql-output-newline-count, sql-output-by-send): New
variables. Record number of newlines in input text.
(sql-output-newline-count, sql-output-by-send):
New variables. Record number of newlines in input text.
(sql-send-string): Handle multiple filters and count newlines.
(sql-send-magic-terminator): Count terminator newline.
(sql-interactive-remove-continuation-prompt): Filters output to
@ -20,8 +25,7 @@
(sql-interactive-mode): Set up new variables, prompt regexp and
output filter.
(sql-mode-sqlite-font-lock-keywords): Correct some keywords.
(sql-make-alternate-buffer-name): Correct buffer name in edge
cases.
(sql-make-alternate-buffer-name): Correct buffer name in edge cases.
2010-08-10 Stefan Monnier <monnier@iro.umontreal.ca>

16
lisp/cus-edit.el
View file

@ -4404,10 +4404,10 @@ This function does not save the buffer."
(unless (bolp)
(princ "\n"))
(princ "(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.\n")
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.\n")
(dolist (symbol saved-list)
(let ((spec (car-safe (get symbol 'theme-value)))
(value (get symbol 'saved-value))
@ -4480,10 +4480,10 @@ This function does not save the buffer."
(unless (bolp)
(princ "\n"))
(princ "(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.\n")
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.\n")
(dolist (symbol saved-list)
(let ((spec (car-safe (get symbol 'theme-face)))
(value (get symbol 'saved-face))