diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 21 | ||||
| -rw-r--r-- | lisp/cus-start.el | 3 | ||||
| -rw-r--r-- | lisp/subr.el | 39 |
3 files changed, 61 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2eb0dda691f..466d5da5c92 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,24 @@ +2009-08-27 Stefan Monnier <monnier@iro.umontreal.ca> + + * cus-start.el (default-major-mode): Customize `major-mode' instead. + (enable-multibyte-characters): Not customizable any more. + + * subr.el (default-mode-line-format, default-header-line-format) + (default-line-spacing, default-abbrev-mode, default-ctl-arrow) + (default-direction-reversed, default-truncate-lines) + (default-left-margin, default-tab-width, default-case-fold-search) + (default-left-margin-width, default-right-margin-width) + (default-left-fringe-width, default-right-fringe-width) + (default-fringes-outside-margins, default-scroll-bar-width) + (default-vertical-scroll-bar, default-indicate-empty-lines) + (default-indicate-buffer-boundaries, default-fringe-indicator-alist) + (default-fringe-cursor-alist, default-scroll-up-aggressively) + (default-scroll-down-aggressively, default-fill-column) + (default-cursor-type, default-buffer-file-type) + (default-cursor-in-non-selected-windows) + (default-buffer-file-coding-system, default-major-mode) + (default-enable-multibyte-characters): Mark as obsolete. + 2009-08-27 Dan Nicolaescu <dann@ics.uci.edu> * vc-cvs.el (vc-cvs-update-changelog): Fix typo. diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 11b03887ac0..b83125da71e 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -38,8 +38,7 @@ (garbage-collection-messages alloc boolean) ;; buffer.c (mode-line-format mode-line sexp) ;Hard to do right. - (default-major-mode internal function) - (enable-multibyte-characters mule boolean) + (major-mode internal function) (case-fold-search matching boolean) (fill-column fill integer) (left-margin fill integer) diff --git a/lisp/subr.el b/lisp/subr.el index f2709f3b777..ed85f2812a2 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1000,6 +1000,45 @@ and `event-end' functions." ;;;; Obsolescent names for functions. +;; Special "default-FOO" variables which contain the default value of +;; the "FOO" variable are nasty. Their implementation is brittle, and +;; slows down several unrelated variable operations; furthermore, they +;; can lead to really odd behavior if you decide to make them +;; buffer-local. + +;; Not used at all in Emacs, last time I checked: +(make-obsolete-variable 'default-mode-line-format 'mode-line-format "23.2") +(make-obsolete-variable 'default-header-line-format 'header-line-format "23.2") +(make-obsolete-variable 'default-line-spacing 'line-spacing "23.2") +(make-obsolete-variable 'default-abbrev-mode 'abbrev-mode "23.2") +(make-obsolete-variable 'default-ctl-arrow 'ctl-arrow "23.2") +(make-obsolete-variable 'default-direction-reversed 'direction-reversed "23.2") +(make-obsolete-variable 'default-truncate-lines 'truncate-lines "23.2") +(make-obsolete-variable 'default-left-margin 'left-margin "23.2") +(make-obsolete-variable 'default-tab-width 'tab-width "23.2") +(make-obsolete-variable 'default-case-fold-search 'case-fold-search "23.2") +(make-obsolete-variable 'default-left-margin-width 'left-margin-width "23.2") +(make-obsolete-variable 'default-right-margin-width 'right-margin-width "23.2") +(make-obsolete-variable 'default-left-fringe-width 'left-fringe-width "23.2") +(make-obsolete-variable 'default-right-fringe-width 'right-fringe-width "23.2") +(make-obsolete-variable 'default-fringes-outside-margins 'fringes-outside-margins "23.2") +(make-obsolete-variable 'default-scroll-bar-width 'scroll-bar-width "23.2") +(make-obsolete-variable 'default-vertical-scroll-bar 'vertical-scroll-bar "23.2") +(make-obsolete-variable 'default-indicate-empty-lines 'indicate-empty-lines "23.2") +(make-obsolete-variable 'default-indicate-buffer-boundaries 'indicate-buffer-boundaries "23.2") +(make-obsolete-variable 'default-fringe-indicator-alist 'fringe-indicator-alist "23.2") +(make-obsolete-variable 'default-fringe-cursor-alist 'fringe-cursor-alist "23.2") +(make-obsolete-variable 'default-scroll-up-aggressively 'scroll-up-aggressively "23.2") +(make-obsolete-variable 'default-scroll-down-aggressively 'scroll-down-aggressively "23.2") +(make-obsolete-variable 'default-fill-column 'fill-column "23.2") +(make-obsolete-variable 'default-cursor-type 'cursor-type "23.2") +(make-obsolete-variable 'default-buffer-file-type 'buffer-file-type "23.2") +(make-obsolete-variable 'default-cursor-in-non-selected-windows 'cursor-in-non-selected-windows "23.2") +(make-obsolete-variable 'default-buffer-file-coding-system 'buffer-file-coding-system "23.2") +(make-obsolete-variable 'default-major-mode 'major-mode "23.2") +(make-obsolete-variable 'default-enable-multibyte-characters + "use enable-multibyte-characters or set-buffer-multibyte instead" "23.2") + (define-obsolete-function-alias 'window-dot 'window-point "22.1") (define-obsolete-function-alias 'set-window-dot 'set-window-point "22.1") (define-obsolete-function-alias 'read-input 'read-string "22.1") |