diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 19 | ||||
-rw-r--r-- | lisp/calc/calc-keypd.el | 23 | ||||
-rw-r--r-- | lisp/faces.el | 29 | ||||
-rw-r--r-- | lisp/gnus/ChangeLog | 20 | ||||
-rw-r--r-- | lisp/gnus/gnus-art.el | 2 | ||||
-rw-r--r-- | lisp/isearch.el | 2 | ||||
-rw-r--r-- | lisp/xt-mouse.el | 5 |
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 |