(view-read-only): Move from view.el to files.el.

3 files changed, 51 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7406bc8e4a1..8068bc2669c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-18  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * view.el (view-read-only): Move to files.el.
+        * files.el (view-read-only): Move from view.el.
+
 2003-04-17  Stefan Monnier  <monnier@cs.yale.edu>
 
         * files.el (view-read-only): Don't declare a second time.
@@ -360,6 +365,48 @@
         * language/ind-util.el (indian-2-column-to-ucs-region): Fix for
         the case of replacing multibyte characters.
 
+2003-04-09  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * textmodes/bibtex.el: Update copyright and Author list.
+        Don't require `compile' since it seems unnecessary.
+        (bibtex-version): Remove.
+        (bibtex-sort-ignore-string-entries, bibtex-maintain-sorted-entries)
+        (bibtex-field-name-for-parsing): Don't make auto-buffer-local.
+        (bibtex-comment-start): Don't include the space.
+        (zmacs-regions, reporter-prompt-for-summary-p):
+        Declare to quieten the byte-compiler.
+        (bibtex-reference-key, bibtex-mode-syntax-table): Remove =
+        because it can't be part of a string's key.
+        (bibtex-parse-field-name): Use prog1.
+        (bibtex-font-lock-syntactic-keywords): New var.
+        (bibtex-font-lock-keywords): Remove the entry for @Comment.
+        (bibtex-search-entry): Simplify.
+        (bibtex-empty-re): New var.
+        (bibtex-format-entry): Slightly restructure some loops to avoid code
+        duplication.  Use looking-at rather than `substring + string-match'.
+        Use bibtex-empty-re (which removes unnecessary \(..\) in regexps).
+        Remove now unused end-name.  Use bibtex-find-crossref.
+        Don't downcase since case-fold-search is t.
+        (bibtex-autokey-get-yearfield): Use bibtex-find-crossref.
+        (bibtex-parse-keys): Use unless and push.
+        Parse even if bibtex-maintain-sorted-entries is nil.
+        (bibtex-complete): Use push.  Don't sort completions.
+        (bibtex-mode): Use push.  Update comment-start-skip.
+        Improve defun-prompt-regexp and outline-regexp.
+        Add bibtex-font-lock-syntactic-keywords to font-lock-defaults.
+        (bibtex-end-of-entry): Remove unused \(...\).
+        (bibtex-sort-key): New fun.
+        (bibtex-sort-buffer, bibtex-validate): Use it.
+        (bibtex-find-crossref): New fun.
+        (bibtex-validate): Use push & dolist; remove \(...\).
+        (bibtex-clean-entry): Use unless and friends.
+        Don't add the key to the list if the list hasn't been built yet.
+        (bibtex-fill-entry): Remove unused begin-name and end-name.
+        (bibtex-reformat): Kill local var instead of setting it to nil.
+        (bibtex-convert-alien): Use deactivate-mark rather than the
+        non-existent bibtex-mark-active variable.
+        (bibtex-String): Simplify.
+
 2003-04-09  Richard M. Stallman  <rms@gnu.org>
 
         * files.el (file-chase-links): Fix previous change.
diff --git a/lisp/files.el b/lisp/files.el
index c6b91c57d6d..6e1a5b4c799 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -442,7 +442,10 @@ and ignores this variable."
 (or (fboundp 'file-locked-p)
     (defalias 'file-locked-p 'ignore))
 
-(defvar view-read-only)                 ;Declared in view.el.
+(defcustom view-read-only nil
+  "*Non-nil means buffers visiting files read-only, do it in view mode."
+  :type 'boolean
+  :group 'view)
 
 (put 'ange-ftp-completion-hook-function 'safe-magic t)
 (defun ange-ftp-completion-hook-function (op &rest args)
diff --git a/lisp/view.el b/lisp/view.el
index 96907371aec..ce5c1df702b 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -53,11 +53,6 @@
   :group 'wp
   :group 'editing)
 
-(defcustom view-read-only nil
-  "*Non-nil means buffers visiting files read-only, do it in view mode."
-  :type 'boolean
-  :group 'view)
-
 (defcustom view-highlight-face 'highlight
    "*The face used for highlighting the match found by View mode search."
    :type 'face