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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7406bc8e4a18ff036a667fb5974381c9e76db6d6..8068bc2669c66b00e93b9045c2e1e99d1178ee6d 100644 (file)
--- 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 c6b91c57d6d1d108950c102392adef56bbe3c052..6e1a5b4c799ba973fdf53f3d765422b27c69fff8 100644 (file)
--- 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 96907371aecf8bb938e3b8f6ebe07274d238795f..ce5c1df702bd717373ef74335151672b6186ba1d 100644 (file)
--- 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