aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog19
-rw-r--r--lisp/calc/calc-keypd.el23
-rw-r--r--lisp/faces.el29
-rw-r--r--lisp/gnus/ChangeLog20
-rw-r--r--lisp/gnus/gnus-art.el2
-rw-r--r--lisp/isearch.el2
-rw-r--r--lisp/xt-mouse.el5
7 files changed, 58 insertions, 42 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47cf7a9ba8..3d3994cd24 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,22 @@
+2004-12-09 Richard M. Stallman <[email protected]>
+
+ * isearch.el (isearch-mode-map): Treat S-SPC like SPC.
+
+2004-12-10 Nick Roberts <[email protected]>
+
+ * xt-mouse.el (xterm-mouse-event): Correct cursor position in a
+ buffer with a display margin.
+
+2004-12-08 Jay Belanger <[email protected]>
+
+ * calc/calc-keypd.el (calc-keypad-mode): Unbind unused mouse events.
+ (calc-keypad-left-click): Set buffer to calc-keymap-buffer.
+
+2004-12-08 Richard M. Stallman <[email protected]>
+
+ * faces.el: Delete code to set display table.
+ (escape-glyph): Redefine to be less loud. (Copy minibuffer-prompt.)
+
2004-12-08 Jay Belanger <[email protected]>
* calc/calc.el: Add math-read-preprocess-string to autoloads.
diff --git a/lisp/calc/calc-keypd.el b/lisp/calc/calc-keypd.el
index e517ac1942..2c2a0f0f4a 100644
--- a/lisp/calc/calc-keypd.el
+++ b/lisp/calc/calc-keypd.el
@@ -236,9 +236,21 @@
(define-key calc-keypad-mode-map (kbd "RET") 'calc-keypad-press)
(define-key calc-keypad-mode-map (kbd "TAB") 'calc-keypad-menu)
(define-key calc-keypad-mode-map "q" 'calc-keypad-off)
- (define-key calc-keypad-mode-map [(mouse-3)] 'calc-keypad-right-click)
- (define-key calc-keypad-mode-map [(mouse-2)] 'calc-keypad-middle-click)
- (define-key calc-keypad-mode-map [(mouse-1)] 'calc-keypad-left-click)
+ (define-key calc-keypad-mode-map [down-mouse-1] 'ignore)
+ (define-key calc-keypad-mode-map [drag-mouse-1] 'ignore)
+ (define-key calc-keypad-mode-map [double-mouse-1] 'ignore)
+ (define-key calc-keypad-mode-map [triple-mouse-1] 'ignore)
+ (define-key calc-keypad-mode-map [down-mouse-2] 'ignore)
+ (define-key calc-keypad-mode-map [drag-mouse-2] 'ignore)
+ (define-key calc-keypad-mode-map [double-mouse-2] 'ignore)
+ (define-key calc-keypad-mode-map [triple-mouse-2] 'ignore)
+ (define-key calc-keypad-mode-map [down-mouse-3] 'ignore)
+ (define-key calc-keypad-mode-map [drag-mouse-3] 'ignore)
+ (define-key calc-keypad-mode-map [double-mouse-3] 'ignore)
+ (define-key calc-keypad-mode-map [triple-mouse-3] 'ignore)
+ (define-key calc-keypad-mode-map [mouse-3] 'calc-keypad-right-click)
+ (define-key calc-keypad-mode-map [mouse-2] 'calc-keypad-middle-click)
+ (define-key calc-keypad-mode-map [mouse-1] 'calc-keypad-left-click)
(put 'calc-keypad-mode 'mode-class 'special)
(make-local-variable 'calc-main-buffer))
@@ -529,8 +541,9 @@
(defun calc-keypad-left-click (event)
"Handle a left-button mouse click in Calc Keypad window."
(interactive "e")
- (goto-char (posn-point (event-start event)))
- (calc-keypad-press))
+ (with-current-buffer calc-keypad-buffer
+ (goto-char (posn-point (event-start event)))
+ (calc-keypad-press)))
(defun calc-keypad-right-click (event)
"Handle a right-button mouse click in Calc Keypad window."
diff --git a/lisp/faces.el b/lisp/faces.el
index df76611f02..7be6f7f55c 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2051,32 +2051,11 @@ Note: Other faces cannot inherit from the cursor face."
:group 'font-lock ; like `show-trailing-whitespace'
:group 'basic-faces)
-
-;; Make escape characters stand out in display
-
-(defface escape-glyph
- '((t :inherit secondary-selection))
- "Basic face for displaying \\ and ^ in multichar glyphs.
-It is also used for ... in ellipses."
+(defface escape-glyph '((((background dark)) :foreground "cyan")
+ (((type pc)) :foreground "magenta")
+ (t :foreground "dark blue"))
+ "Face for displaying \\ and ^ in multichar glyphs."
:group 'basic-faces)
-
-(put 'display-table 'char-table-extra-slots 6)
-
-(or standard-display-table
- ;; avoid using autoloaded make-display-table here
- (setq standard-display-table (make-char-table 'display-table nil)))
-
-(let* ((face (lsh (face-id 'escape-glyph) 19))
- (backslash (+ face ?\\))
- (dot (+ face ?.)))
- (set-char-table-extra-slot standard-display-table 2 backslash)
- (aset standard-display-table 2208 (vector backslash ?\s))
- (aset standard-display-table 2221 (vector backslash ?-))
- (set-char-table-extra-slot standard-display-table 3 (+ face ?^))
- (set-char-table-extra-slot standard-display-table 4 (vector dot dot dot)))
-
-
-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Manipulating font names.
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2b83229010..47945169a5 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,8 +1,11 @@
+2004-12-08 Stefan Monnier <[email protected]>
+
+ * gnus-art.el (gnus-narrow-to-page): Don't hardcode point-min.
+
2004-12-02 Katsumi Yamaoka <[email protected]>
* message.el (message-forward-make-body-mml): Remove headers
- according to message-forward-ignored-headers if a message is
- decoded.
+ according to message-forward-ignored-headers if a message is decoded.
2004-12-02 Romain Francoise <[email protected]>
@@ -60,17 +63,16 @@
2004-11-25 Reiner Steib <[email protected]>
- * message.el (message-forbidden-properties): Fixed typo in doc
- string.
+ * message.el (message-forbidden-properties): Fix typo in doc string.
2004-11-25 Lars Magne Ingebrigtsen <[email protected]>
- * message.el (message-strip-forbidden-properties): Bind
- buffer-read-only (etc) to nil.
+ * message.el (message-strip-forbidden-properties):
+ Bind buffer-read-only (etc) to nil.
2004-11-25 Reiner Steib <[email protected]>
- * gnus-util.el (gnus-replace-in-string): Added doc string.
+ * gnus-util.el (gnus-replace-in-string): Add doc string.
* nnmail.el (nnmail-split-header-length-limit): Increase to 2048
to avoid problems when splitting mails with many recipients.
@@ -97,8 +99,8 @@
2004-11-14 Reiner Steib <[email protected]>
- * gnus-start.el (gnus-convert-old-newsrc): Assign
- legacy-gnus-agent to 5.10.7.
+ * gnus-start.el (gnus-convert-old-newsrc):
+ Assign legacy-gnus-agent to 5.10.7.
2004-11-10 Katsumi Yamaoka <[email protected]>
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index f6286c7de8..7450fee69e 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -5066,7 +5066,7 @@ If given a numerical ARG, move forward ARG pages."
(goto-char (point-min))
(gnus-insert-prev-page-button)))
(when (and (gnus-visual-p 'page-marker)
- (< (+ (point-max) 2) (buffer-size)))
+ (< (point-max) (save-restriction (widen) (point-max))))
(save-excursion
(goto-char (point-max))
(gnus-insert-next-page-button))))))
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 53d2ab1c4f..77139988bb 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -229,6 +229,7 @@ Default value, nil, means edit the string instead."
(while (< i 256)
(define-key map (vector i) 'isearch-printing-char)
(setq i (1+ i)))
+ (define-key map (vector i) 'isearch-printing-char)
;; To handle local bindings with meta char prefix keys, define
;; another full keymap. This must be done for any other prefix
@@ -262,6 +263,7 @@ Default value, nil, means edit the string instead."
(define-key map "\r" 'isearch-exit)
(define-key map "\C-j" 'isearch-printing-char)
(define-key map "\t" 'isearch-printing-char)
+ (define-key map [?\S-\ ] 'isearch-printing-char)
(define-key map "\C-w" 'isearch-yank-word-or-char)
(define-key map "\M-\C-w" 'isearch-del-char)
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index a261d3d36c..19b58475a9 100644
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -139,12 +139,13 @@
default-header-line-format)
1
0)))
- (move-to-column (+ (car where) (current-column)
+ (move-to-column (- (+ (car where) (current-column)
(if (string-match "\\` \\*Minibuf"
(buffer-name))
(- (minibuffer-prompt-width))
0)
- (max 0 (1- (window-hscroll)))))
+ (max 0 (1- (window-hscroll))))
+ left-margin-width))
(point))
where))
(mouse (intern