aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2000-08-16 21:03:36 +0000
committerStefan Monnier2000-08-16 21:03:36 +0000
commit7382bcae29e08faa99ef275d83cd4cb31aace60a (patch)
tree8571c11d449e7cb7d51003eb64283014c3ba788c
parent7a3ec18a3cac2da58be8829807839f8f6ebaff8f (diff)
downloademacs-7382bcae29e08faa99ef275d83cd4cb31aace60a.tar.gz
emacs-7382bcae29e08faa99ef275d83cd4cb31aace60a.zip
*** empty log message ***
-rw-r--r--lisp/ChangeLog43
-rw-r--r--lisp/cvs-status.el9
-rw-r--r--lisp/mail/mh-comp.el15
-rw-r--r--lisp/play/doctor.el2
4 files changed, 59 insertions, 10 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d498d94552d..a9c4c40854d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,46 @@
12000-08-16 Stefan Monnier <monnier@cs.yale.edu>
2
3 * loadhist.el (unload-feature): Typo.
4
5 * finder.el (finder-compile-keywords):
6 * cus-dep.el (custom-make-dependencies): Add local-variable settings
7 to the generated file.
8
9 * mail/mh-e.el (mh-make-local-vars):
10 Replace make-variable-buffer-local with make-local-variable.
11
12 * options.el (Edit-options-{set,toggle,t,nil}):
13 * mail/mailabbrev.el (mail-abbrevs-mode):
14 * textmodes/tex-mode.el (tex-expand-files):
15 * textmodes/outline.el (outline-minor-mode): Don't quote lambda.
16
17 * term/bg-mouse.el (bg-mouse-report): screen-height -> frame-height.
18
19 * emacs-lisp/ewoc.el (ewoc-locate): Default POS to (point).
20 (ewoc-goto-prev, ewoc-goto-next): Remove arg POS.
21 Allow going past the last element.
22 * pcvs.el (cvs-mode-previous-line, cvs-mode-next-line, cvs-mode-mark)
23 (cvs-mode-unmark-up, cvs-get-marked): Update calls to ewoc.
24 (cvs-mouse-toggle-mark): Don't move point.
25 (cvs-revert-if-needed): Avoid re-eval of local variables and modes.
26
27 * progmodes/compile.el (grep): Provide a default set of files.
28 (next-error): Docstring fix.
29 (compilation-find-file): Avoid find-file (fails in a dedicated window).
30
31 * emacs-lisp/easy-mmode.el (define-minor-mode):
32 Use `symbol-value' to keep the byte-compiler quiet.
33
34 * diff-mode.el (diff-mode-map): Bind diff-apply-hunk.
35 (diff-find-source-location): New fun, extracted from diff-goto-source.
36 (diff-goto-source): Use it.
37 (diff-next-complex-hunk, diff-filter-lines): New function.
38 (diff-apply-hunk): New command.
39
40 * smerge-mode.el (smerge-mode-menu): Doc fix.
41
42 * msb.el (msb-mode): Define it in terms of define-minor-mode.
43
12000-08-16 Dave Love <fx@gnu.org> 442000-08-16 Dave Love <fx@gnu.org>
2 45
3 * play/5x5.el: Doc fixes. 46 * play/5x5.el: Doc fixes.
diff --git a/lisp/cvs-status.el b/lisp/cvs-status.el
index 4f46fb8c4ff..9cc92e82818 100644
--- a/lisp/cvs-status.el
+++ b/lisp/cvs-status.el
@@ -5,7 +5,7 @@
5;; Author: Stefan Monnier <monnier@cs.yale.edu> 5;; Author: Stefan Monnier <monnier@cs.yale.edu>
6;; Keywords: pcl-cvs cvs status tree 6;; Keywords: pcl-cvs cvs status tree
7;; Version: $Name: $ 7;; Version: $Name: $
8;; Revision: $Id: cvs-status.el,v 1.4 2000/05/10 22:08:28 monnier Exp $ 8;; Revision: $Id: cvs-status.el,v 1.5 2000/08/06 09:18:02 gerd Exp $
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
11 11
@@ -425,9 +425,9 @@ Optional prefix ARG chooses between two representations."
425 ;;(pt (save-excursion (forward-line -1) (point))) 425 ;;(pt (save-excursion (forward-line -1) (point)))
426 ) 426 )
427 (setq tags (sort tags 'cvs-tag-lessp)) 427 (setq tags (sort tags 'cvs-tag-lessp))
428 (let* ((first (nth 0 tags)) 428 (let* ((first (car tags))
429 (prev (if (cvs-tag-p first) 429 (prev (if (cvs-tag-p first)
430 (list (nth 0 (cvs-tag->vlist first))) nil))) 430 (list (car (cvs-tag->vlist first))) nil)))
431 (cvs-tree-tags-insert tags prev) 431 (cvs-tree-tags-insert tags prev)
432 ;;(cvs-refontify pt (point)) 432 ;;(cvs-refontify pt (point))
433 (sit-for 0))))))) 433 (sit-for 0)))))))
@@ -505,6 +505,9 @@ Optional prefix ARG chooses between two representations."
505 505
506;;; Change Log: 506;;; Change Log:
507;; $Log: cvs-status.el,v $ 507;; $Log: cvs-status.el,v $
508;; Revision 1.5 2000/08/06 09:18:02 gerd
509;; Use `nth' instead of `first', `second', and `third'.
510;;
508;; Revision 1.4 2000/05/10 22:08:28 monnier 511;; Revision 1.4 2000/05/10 22:08:28 monnier
509;; (cvs-status-minor-wrap): Use mark-active. 512;; (cvs-status-minor-wrap): Use mark-active.
510;; 513;;
diff --git a/lisp/mail/mh-comp.el b/lisp/mail/mh-comp.el
index 5b8828201f2..f7da24e8a8f 100644
--- a/lisp/mail/mh-comp.el
+++ b/lisp/mail/mh-comp.el
@@ -1,7 +1,11 @@
1;;; mh-comp --- mh-e functions for composing messages 1;;; mh-comp --- mh-e functions for composing messages
2;; Time-stamp: <95/08/19 17:48:59 gildea> 2;; Time-stamp: <95/08/19 17:48:59 gildea>
3 3
4;; Copyright (C) 1993, 1995, 1997 Free Software Foundation, Inc. 4;; Copyright (C) 1993,1995,1997,2000 Free Software Foundation, Inc.
5
6;; Maintainer: None
7;; Keywords: mail
8;; Bug-reports: include `M-x mh-version' output in any correspondence
5 9
6;; This file is part of mh-e, part of GNU Emacs. 10;; This file is part of mh-e, part of GNU Emacs.
7 11
@@ -26,7 +30,7 @@
26 30
27;;; Change Log: 31;;; Change Log:
28 32
29;; $Id: mh-comp.el,v 1.17 2000/04/27 18:56:42 gerd Exp $ 33;; $Id: mh-comp.el,v 1.18 2000/06/05 07:15:34 monnier Exp $
30 34
31;;; Code: 35;;; Code:
32 36
@@ -1002,10 +1006,9 @@ yanked message will be deleted."
1002 (run-hooks 'mh-yank-hooks)) 1006 (run-hooks 'mh-yank-hooks))
1003 (t 1007 (t
1004 (or (bolp) (forward-line 1)) 1008 (or (bolp) (forward-line 1))
1005 (let ((zmacs-regions nil)) ;so "(mark)" works in XEmacs 1009 (while (< (point) (mark))
1006 (while (< (point) (mark)) 1010 (insert mh-ins-string)
1007 (insert mh-ins-string) 1011 (forward-line 1)))))
1008 (forward-line 1))))))
1009 1012
1010 1013
1011(defun mh-fully-kill-draft () 1014(defun mh-fully-kill-draft ()
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 64f92102313..c5ed41d9b48 100644
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -947,7 +947,7 @@ Otherwise call the Doctor to parse preceding sentence."
947(defun doctor-correct-spelling (sent) 947(defun doctor-correct-spelling (sent)
948 "Correct the spelling and expand each word in sentence." 948 "Correct the spelling and expand each word in sentence."
949 (if sent 949 (if sent
950 (apply 'append (mapcar '(lambda (word) 950 (apply 'append (mapcar (lambda (word)
951 (if (memq word typos) 951 (if (memq word typos)
952 (get (get word 'doctor-correction) 'doctor-expansion) 952 (get (get word 'doctor-correction) 'doctor-expansion)
953 (list word))) 953 (list word)))