[Emacs-diffs] emacs/lisp textmodes/reftex.el progmodes/verilo...

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/08/28 17:03:01

Modified files:
        lisp/textmodes : reftex.el 
        lisp/progmodes : verilog-mode.el 
        lisp/org       : org-html.el org-docbook.el ChangeLog 
        lisp/mh-e      : mh-show.el mh-letter.el mh-folder.el 
        lisp/gnus      : nnheader.el mm-util.el ChangeLog 
        lisp/emulation : viper.el 
        lisp/emacs-lisp: re-builder.el bytecomp.el 
        lisp           : ses.el hexl.el files.el ehelp.el autoinsert.el 
                         arc-mode.el ChangeLog 

Log message:
        * gnus/nnheader.el (nnheader-find-file-noselect):
        * gnus/mm-util.el (mm-insert-file-contents):
        * org/org-html.el (org-export-as-html):
        * org/org-docbook.el (org-export-as-docbook):
        * textmodes/reftex.el (reftex-get-file-buffer-force):
        * progmodes/verilog-mode.el (verilog-batch-execute-func):
        * emulation/viper.el (viper-go-away, viper-set-hooks):
        * emacs-lisp/re-builder.el (re-builder-unload-function):
        * emacs-lisp/bytecomp.el (byte-compile-file):
        * ses.el (ses-unload-function):
        * hexl.el (hexl-find-file):
        * files.el (normal-mode):
        * ehelp.el (with-electric-help):
        * autoinsert.el (auto-insert-alist):
        * arc-mode.el (archive-mode):
        Use (default-value 'major-mode) instead of default-major-mode.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/reftex.el?cvsroot=emacs&r1=1.91&r2=1.92
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/verilog-mode.el?cvsroot=emacs&r1=1.32&r2=1.33
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org-html.el?cvsroot=emacs&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org-docbook.el?cvsroot=emacs&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/ChangeLog?cvsroot=emacs&r1=1.76&r2=1.77
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-show.el?cvsroot=emacs&r1=1.18&r2=1.19
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-letter.el?cvsroot=emacs&r1=1.25&r2=1.26
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-folder.el?cvsroot=emacs&r1=1.24&r2=1.25
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/nnheader.el?cvsroot=emacs&r1=1.43&r2=1.44
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/mm-util.el?cvsroot=emacs&r1=1.82&r2=1.83
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.817&r2=1.818
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emulation/viper.el?cvsroot=emacs&r1=1.122&r2=1.123
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/re-builder.el?cvsroot=emacs&r1=1.45&r2=1.46
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/bytecomp.el?cvsroot=emacs&r1=2.253&r2=2.254
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ses.el?cvsroot=emacs&r1=1.40&r2=1.41
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/hexl.el?cvsroot=emacs&r1=1.122&r2=1.123
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/files.el?cvsroot=emacs&r1=1.1071&r2=1.1072
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ehelp.el?cvsroot=emacs&r1=1.51&r2=1.52
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/autoinsert.el?cvsroot=emacs&r1=1.63&r2=1.64
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/arc-mode.el?cvsroot=emacs&r1=1.99&r2=1.100
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16041&r2=1.16042

Patches:
Index: textmodes/reftex.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/reftex.el,v
retrieving revision 1.91
retrieving revision 1.92
diff -u -b -r1.91 -r1.92
--- textmodes/reftex.el 5 Jan 2009 03:24:11 -0000       1.91
+++ textmodes/reftex.el 28 Aug 2009 17:02:53 -0000      1.92
@@ -2063,9 +2063,9 @@
              ;;       with limited Magic
 
              ;; The magic goes away
-             (let ((format-alist nil)
+             (letf ((format-alist nil)
                    (auto-mode-alist (reftex-auto-mode-alist))
-                   (default-major-mode 'fundamental-mode)
+                    ((default-value 'major-mode) 'fundamental-mode)
                    (enable-local-variables nil)
                    (after-insert-file-functions nil))
                (setq buf (find-file-noselect file)))

Index: progmodes/verilog-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/verilog-mode.el,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -b -r1.32 -r1.33
--- progmodes/verilog-mode.el   25 Aug 2009 03:26:43 -0000      1.32
+++ progmodes/verilog-mode.el   28 Aug 2009 17:02:54 -0000      1.33
@@ -4136,18 +4136,18 @@
 (defun verilog-batch-execute-func (funref)
   "Internal processing of a batch command, running FUNREF on all command 
arguments."
   (verilog-batch-error-wrapper
+   ;; !!! FIXME: Setting global variables like that is *VERY NASTY* !!!  --Stef
    ;; General globals needed
    (setq make-backup-files nil)
    (setq-default make-backup-files nil)
    (setq enable-local-variables t)
    (setq enable-local-eval t)
    ;; Make sure any sub-files we read get proper mode
-   (setq default-major-mode `verilog-mode)
+   (setq-default major-mode 'verilog-mode)
    ;; Ditto files already read in
    (mapc (lambda (buf)
           (when (buffer-file-name buf)
-            (save-excursion
-              (set-buffer buf)
+            (with-current-buffer buf
               (verilog-mode))))
         (buffer-list))
    ;; Process the files

Index: org/org-html.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/org-html.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- org/org-html.el     8 Aug 2009 02:33:53 -0000       1.2
+++ org/org-html.el     28 Aug 2009 17:02:54 -0000      1.3
@@ -1419,7 +1419,7 @@
 
       (unless (plist-get opt-plist :buffer-will-be-killed)
        (normal-mode)
-       (if (eq major-mode default-major-mode) (html-mode)))
+       (if (eq major-mode (default-value 'major-mode)) (html-mode)))
 
       ;; insert the table of contents
       (goto-char (point-min))

Index: org/org-docbook.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/org-docbook.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- org/org-docbook.el  8 Aug 2009 12:18:56 -0000       1.3
+++ org/org-docbook.el  28 Aug 2009 17:02:54 -0000      1.4
@@ -9,7 +9,7 @@
 ;; Maintainer: Baoqiu Cui <cbaoqiu AT yahoo DOT com>
 ;; Keywords: org, wp, docbook
 ;; Description: Converts an org-mode buffer into DocBook
-;; $Id: org-docbook.el,v 1.3 2009/08/08 12:18:56 cdominik Exp $
+;; $Id: org-docbook.el,v 1.4 2009/08/28 17:02:54 monnier Exp $
 ;; URL:
 
 ;; This file is part of GNU Emacs.
@@ -1102,7 +1102,7 @@
 
       (unless (plist-get opt-plist :buffer-will-be-killed)
        (normal-mode)
-       (if (eq major-mode default-major-mode)
+       (if (eq major-mode (default-value 'major-mode))
            (nxml-mode)))
 
       ;; Remove empty paragraphs and lists.  Replace them with a

Index: org/ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/ChangeLog,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -b -r1.76 -r1.77
--- org/ChangeLog       8 Aug 2009 12:20:51 -0000       1.76
+++ org/ChangeLog       28 Aug 2009 17:02:54 -0000      1.77
@@ -1,3 +1,9 @@
+2009-08-28  Stefan Monnier  <address@hidden>
+
+       * org-html.el (org-export-as-html):
+       * org-docbook.el (org-export-as-docbook):
+       Use (default-value 'major-mode) instead of default-major-mode.
+
 2009-08-08  Carsten Dominik  <address@hidden>
 
        * org-docbook.el: Add arch-tag.

Index: mh-e/mh-show.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mh-e/mh-show.el,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- mh-e/mh-show.el     25 Jan 2009 18:32:30 -0000      1.18
+++ mh-e/mh-show.el     28 Aug 2009 17:02:54 -0000      1.19
@@ -825,7 +825,7 @@
 
 ;;; MH-Show Mode
 
-;; Ensure new buffers won't get this mode if default-major-mode is nil.
+;; Ensure new buffers won't get this mode if default major-mode is nil.
 (put 'mh-show-mode 'mode-class 'special)
 
 ;; Shush compiler.

Index: mh-e/mh-letter.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mh-e/mh-letter.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- mh-e/mh-letter.el   25 Jan 2009 18:31:51 -0000      1.25
+++ mh-e/mh-letter.el   28 Aug 2009 17:02:54 -0000      1.26
@@ -277,7 +277,7 @@
 ;; Shush compiler.
 (defvar font-lock-defaults)             ; XEmacs
 
-;; Ensure new buffers won't get this mode if default-major-mode is nil.
+;; Ensure new buffers won't get this mode if default major-mode is nil.
 (put 'mh-letter-mode 'mode-class 'special)
 
 ;;;###mh-autoload

Index: mh-e/mh-folder.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mh-e/mh-folder.el,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- mh-e/mh-folder.el   25 Jan 2009 20:12:13 -0000      1.24
+++ mh-e/mh-folder.el   28 Aug 2009 17:02:54 -0000      1.25
@@ -529,7 +529,7 @@
 (defvar font-lock-auto-fontify)
 (defvar font-lock-defaults)             ; XEmacs
 
-;; Ensure new buffers won't get this mode if default-major-mode is nil.
+;; Ensure new buffers won't get this mode if default major-mode is nil.
 (put 'mh-folder-mode 'mode-class 'special)
 
 ;; Autoload cookie needed by desktop.el

Index: gnus/nnheader.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/nnheader.el,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -b -r1.43 -r1.44
--- gnus/nnheader.el    9 Jan 2009 03:01:51 -0000       1.43
+++ gnus/nnheader.el    28 Aug 2009 17:02:54 -0000      1.44
@@ -992,9 +992,9 @@
 (defun nnheader-find-file-noselect (&rest args)
   "Open a file with some variables bound.
 See `find-file-noselect' for the arguments."
-  (let* ((format-alist nil)
+  (letf* ((format-alist nil)
         (auto-mode-alist (mm-auto-mode-alist))
-        (default-major-mode 'fundamental-mode)
+          ((default-value 'major-mode) 'fundamental-mode)
         (enable-local-variables nil)
         (after-insert-file-functions nil)
         (enable-local-eval nil)

Index: gnus/mm-util.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/mm-util.el,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -b -r1.82 -r1.83
--- gnus/mm-util.el     14 Jan 2009 07:51:27 -0000      1.82
+++ gnus/mm-util.el     28 Aug 2009 17:02:54 -0000      1.83
@@ -1308,9 +1308,9 @@
 `find-file-hooks', etc.
 If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'.
   This function ensures that none of these modifications will take place."
-  (let* ((format-alist nil)
+  (letf* ((format-alist nil)
         (auto-mode-alist (if inhibit nil (mm-auto-mode-alist)))
-        (default-major-mode 'fundamental-mode)
+          ((default-value 'major-mode) 'fundamental-mode)
         (enable-local-variables nil)
         (after-insert-file-functions nil)
         (enable-local-eval nil)

Index: gnus/ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.817
retrieving revision 1.818
diff -u -b -r1.817 -r1.818
--- gnus/ChangeLog      27 Aug 2009 05:19:42 -0000      1.817
+++ gnus/ChangeLog      28 Aug 2009 17:02:55 -0000      1.818
@@ -1,3 +1,9 @@
+2009-08-28  Stefan Monnier  <address@hidden>
+
+       * nnheader.el (nnheader-find-file-noselect):
+       * mm-util.el (mm-insert-file-contents):
+       Use (default-value 'major-mode) instead of default-major-mode.
+
 2009-08-27  Stefan Monnier  <address@hidden>
 
        * nnrss.el (nnrss-request-article): Avoid default-fill-column.

Index: emulation/viper.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emulation/viper.el,v
retrieving revision 1.122
retrieving revision 1.123
diff -u -b -r1.122 -r1.123
--- emulation/viper.el  15 Aug 2009 05:57:12 -0000      1.122
+++ emulation/viper.el  28 Aug 2009 17:02:55 -0000      1.123
@@ -678,8 +678,9 @@
    global-mode-string
    (delq 'viper-mode-string global-mode-string))
 
-  (setq default-major-mode
-       (viper-standard-value 'default-major-mode 
viper-saved-non-viper-variables))
+  (setq-default major-mode
+                (viper-standard-value 'default-major-mode
+                                      viper-saved-non-viper-variables))
 
   (if (featurep 'emacs)
       (setq-default
@@ -834,8 +835,8 @@
   ;; in Fundamental Mode and Vi state.
   ;; When viper-mode is executed in such a case, it will set the major mode
   ;; back to fundamental-mode.
-  (if (eq default-major-mode 'fundamental-mode)
-      (setq default-major-mode 'viper-mode))
+  (if (eq (default-value 'major-mode) 'fundamental-mode)
+      (setq-default major-mode 'viper-mode))
 
   (add-hook 'change-major-mode-hook 'viper-major-mode-change-sentinel)
   (add-hook 'find-file-hooks 'set-viper-state-in-major-mode)
@@ -1214,7 +1215,7 @@
 (if (null viper-saved-non-viper-variables)
     (setq viper-saved-non-viper-variables
          (list
-          (cons 'default-major-mode (list default-major-mode))
+          (cons 'default-major-mode (list (default-value 'major-mode)))
           (cons 'next-line-add-newlines (list next-line-add-newlines))
           (cons 'require-final-newline (list require-final-newline))
           (cons 'scroll-step (list scroll-step))

Index: emacs-lisp/re-builder.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/re-builder.el,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -b -r1.45 -r1.46
--- emacs-lisp/re-builder.el    9 Jan 2009 04:29:19 -0000       1.45
+++ emacs-lisp/re-builder.el    28 Aug 2009 17:02:55 -0000      1.46
@@ -720,7 +720,7 @@
       (remove-hook 'kill-buffer-hook 'reb-kill-buffer t)
       (when (reb-mode-buffer-p)
        (reb-delete-overlays)
-       (funcall default-major-mode))))
+       (funcall (default-value 'major-mode)))))
   ;; continue standard unloading
   nil)
 

Index: emacs-lisp/bytecomp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.253
retrieving revision 2.254
diff -u -b -r2.253 -r2.254
--- emacs-lisp/bytecomp.el      26 Aug 2009 14:47:27 -0000      2.253
+++ emacs-lisp/bytecomp.el      28 Aug 2009 17:02:55 -0000      2.254
@@ -156,6 +156,7 @@
 ;;     Some versions of `file' can be customized to recognize that.
 
 (require 'backquote)
+(eval-when-compile (require 'cl))
 
 (or (fboundp 'defsubst)
     ;; This really ought to be loaded already!
@@ -1747,8 +1748,8 @@
        (set-buffer-multibyte nil))
       ;; Run hooks including the uncompression hook.
       ;; If they change the file name, then change it for the output also.
-      (let ((buffer-file-name bytecomp-filename)
-           (default-major-mode 'emacs-lisp-mode)
+      (letf ((buffer-file-name bytecomp-filename)
+             ((default-value 'major-mode) 'emacs-lisp-mode)
            ;; Ignore unsafe local variables.
            ;; We only care about a few of them for our purposes.
            (enable-local-variables :safe)

Index: ses.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ses.el,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -b -r1.40 -r1.41
--- ses.el      5 Jan 2009 03:19:44 -0000       1.40
+++ ses.el      28 Aug 2009 17:02:56 -0000      1.41
@@ -3011,7 +3011,7 @@
     (dolist (buf (buffer-list))
       (set-buffer buf)
       (when (eq major-mode 'ses-mode)
-       (funcall (or default-major-mode 'fundamental-mode)))))
+       (funcall (or (default-value 'major-mode) 'fundamental-mode)))))
   ;; continue standard unloading
   nil)
 

Index: hexl.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/hexl.el,v
retrieving revision 1.122
retrieving revision 1.123
diff -u -b -r1.122 -r1.123
--- hexl.el     28 Aug 2009 04:21:17 -0000      1.122
+++ hexl.el     28 Aug 2009 17:02:56 -0000      1.123
@@ -42,6 +42,7 @@
 ;;; Code:
 
 (require 'eldoc)
+(eval-when-compile (require 'cl))
 
 ;;
 ;; vars here
@@ -365,8 +366,8 @@
    (list
     (let ((completion-ignored-extensions nil))
       (read-file-name "Filename: " nil nil 'ret-must-match))))
-  ;; Ignore the user's setting of default-major-mode.
-  (let ((default-major-mode 'fundamental-mode))
+  ;; Ignore the user's setting of default major-mode.
+  (letf (((default-value 'major-mode) 'fundamental-mode))
     (find-file-literally filename))
   (if (not (eq major-mode 'hexl-mode))
       (hexl-mode)))

Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.1071
retrieving revision 1.1072
diff -u -b -r1.1071 -r1.1072
--- files.el    26 Aug 2009 03:08:35 -0000      1.1071
+++ files.el    28 Aug 2009 17:02:56 -0000      1.1072
@@ -2100,7 +2100,7 @@
 or from Lisp without specifying the optional argument FIND-FILE;
 in that case, this function acts as if `enable-local-variables' were t."
   (interactive)
-  (funcall (or default-major-mode 'fundamental-mode))
+  (funcall (or (default-value 'major-mode) 'fundamental-mode))
   (let ((enable-local-variables (or (not find-file) enable-local-variables)))
     (report-errors "File mode specification error: %s"
       (set-auto-mode))

Index: ehelp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ehelp.el,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -b -r1.51 -r1.52
--- ehelp.el    21 Aug 2009 07:24:29 -0000      1.51
+++ ehelp.el    28 Aug 2009 17:02:56 -0000      1.52
@@ -96,7 +96,7 @@
 
 (defun electric-help-mode ()
   "`with-electric-help' temporarily places its buffer in this mode.
-\(On exit from `with-electric-help', the buffer is put in 
`default-major-mode'.)"
+\(On exit from `with-electric-help', the buffer is put in default 
`major-mode'.)"
   (setq buffer-read-only t)
   (setq mode-name "Help")
   (setq major-mode 'help)
@@ -131,7 +131,7 @@
 
 When the user exits (with `electric-help-exit', or otherwise), the help
 buffer's window disappears (i.e., we use `save-window-excursion'), and
-BUFFER is put into `default-major-mode' (or `fundamental-mode')."
+BUFFER is put into default `major-mode' (or `fundamental-mode')."
   (setq buffer (get-buffer-create (or buffer "*Help*")))
   (let ((one (one-window-p t))
        (config (current-window-configuration))
@@ -143,8 +143,7 @@
             (goto-char (window-start (selected-window))))
            (let ((pop-up-windows t))
              (pop-to-buffer buffer))
-           (save-excursion
-             (set-buffer buffer)
+           (with-current-buffer buffer
              (when (and minheight (< (window-height) minheight))
               (enlarge-window (- minheight (window-height))))
              (electric-help-mode)
@@ -177,7 +176,7 @@
       ;; afterwards.  It's also not clear that `help-mode' is always
       ;; the right thing, maybe we should add an optional parameter.
       (condition-case ()
-          (funcall (or default-major-mode 'fundamental-mode))
+          (funcall (or (default-value 'major-mode) 'fundamental-mode))
         (error nil))
 
       (set-window-configuration config)

Index: autoinsert.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/autoinsert.el,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -b -r1.63 -r1.64
--- autoinsert.el       5 Jan 2009 03:18:44 -0000       1.63
+++ autoinsert.el       28 Aug 2009 17:02:56 -0000      1.64
@@ -128,7 +128,7 @@
 
     (("/bin/.*[^/]\\'" . "Shell-Script mode magic number")
      lambda ()
-       (if (eq major-mode default-major-mode)
+       (if (eq major-mode (default-value 'major-mode))
         (sh-mode)))
 
     (ada-mode . ada-header)

Index: arc-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/arc-mode.el,v
retrieving revision 1.99
retrieving revision 1.100
diff -u -b -r1.99 -r1.100
--- arc-mode.el 12 Jul 2009 18:56:41 -0000      1.99
+++ arc-mode.el 28 Aug 2009 17:02:56 -0000      1.100
@@ -638,7 +638,7 @@
   ;; mode on and off.  You can corrupt things that way.
   (if (zerop (buffer-size))
       ;; At present we cannot create archives from scratch
-      (funcall default-major-mode)
+      (funcall (default-value 'major-mode))
     (if (and (not force) archive-files) nil
       (let* ((type (archive-find-type))
             (typename (capitalize (symbol-name type))))

Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16041
retrieving revision 1.16042
diff -u -b -r1.16041 -r1.16042
--- ChangeLog   28 Aug 2009 16:29:25 -0000      1.16041
+++ ChangeLog   28 Aug 2009 17:02:57 -0000      1.16042
@@ -1,5 +1,18 @@
 2009-08-28  Stefan Monnier  <address@hidden>
 
+       * textmodes/reftex.el (reftex-get-file-buffer-force):
+       * progmodes/verilog-mode.el (verilog-batch-execute-func):
+       * emulation/viper.el (viper-go-away, viper-set-hooks):
+       * emacs-lisp/re-builder.el (re-builder-unload-function):
+       * emacs-lisp/bytecomp.el (byte-compile-file):
+       * ses.el (ses-unload-function):
+       * hexl.el (hexl-find-file):
+       * files.el (normal-mode):
+       * ehelp.el (with-electric-help):
+       * autoinsert.el (auto-insert-alist):
+       * arc-mode.el (archive-mode):
+       Use (default-value 'major-mode) instead of default-major-mode.
+
        * textmodes/ispell.el (ispell-check-version, ispell-send-string):
        * international/mule.el (load-with-code-conversion):
        * emacs-lisp/debug.el (debug):