diff options
| author | Miles Bader | 2006-12-16 01:29:26 +0000 |
|---|---|---|
| committer | Miles Bader | 2006-12-16 01:29:26 +0000 |
| commit | 4bc5d7668ef47295810f28a14d67b4a9e12a341f (patch) | |
| tree | 2e22bd79984f0772c43e294babc07c1508ce95ce /src/keymap.c | |
| parent | b44bfd5e9bf3a0e853bc0d4788e4c89a01a70d6a (diff) | |
| parent | c3342e8eb3eaf4560210fd030383a940640648f2 (diff) | |
| download | emacs-4bc5d7668ef47295810f28a14d67b4a9e12a341f.tar.gz emacs-4bc5d7668ef47295810f28a14d67b4a9e12a341f.zip | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 545-562)
- Update from CVS
- Update from erc--emacs--22
- Merge from gnus--rel--5.10
- erc-iswitchb: Temporarily enable iswitchb mode
* gnus--rel--5.10 (patch 172-176)
- Merge from emacs--devo--0
- Update from CVS
- Update from CVS: lisp/legacy-gnus-agent.el: Add Copyright notice.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-156
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/src/keymap.c b/src/keymap.c index f67cc109e87..176b6760e36 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -1280,7 +1280,8 @@ buffer position instead of point are used. */) | |||
| 1280 | 1280 | ||
| 1281 | DEFUN ("lookup-key", Flookup_key, Slookup_key, 2, 3, 0, | 1281 | DEFUN ("lookup-key", Flookup_key, Slookup_key, 2, 3, 0, |
| 1282 | doc: /* In keymap KEYMAP, look up key sequence KEY. Return the definition. | 1282 | doc: /* In keymap KEYMAP, look up key sequence KEY. Return the definition. |
| 1283 | nil means undefined. See doc of `define-key' for kinds of definitions. | 1283 | A value of nil means undefined. See doc of `define-key' |
| 1284 | for kinds of definitions. | ||
| 1284 | 1285 | ||
| 1285 | A number as value means KEY is "too long"; | 1286 | A number as value means KEY is "too long"; |
| 1286 | that is, characters or symbols in it except for the last one | 1287 | that is, characters or symbols in it except for the last one |
| @@ -1655,13 +1656,13 @@ specified buffer position instead of point are used. | |||
| 1655 | are read using the keymaps of the buffer clicked on, not | 1656 | are read using the keymaps of the buffer clicked on, not |
| 1656 | the current buffer. So we may have to switch the buffer | 1657 | the current buffer. So we may have to switch the buffer |
| 1657 | here. */ | 1658 | here. */ |
| 1658 | 1659 | ||
| 1659 | if (CONSP (position)) | 1660 | if (CONSP (position)) |
| 1660 | { | 1661 | { |
| 1661 | Lisp_Object window; | 1662 | Lisp_Object window; |
| 1662 | 1663 | ||
| 1663 | window = POSN_WINDOW (position); | 1664 | window = POSN_WINDOW (position); |
| 1664 | 1665 | ||
| 1665 | if (WINDOWP (window) | 1666 | if (WINDOWP (window) |
| 1666 | && BUFFERP (XWINDOW (window)->buffer) | 1667 | && BUFFERP (XWINDOW (window)->buffer) |
| 1667 | && XBUFFER (XWINDOW (window)->buffer) != current_buffer) | 1668 | && XBUFFER (XWINDOW (window)->buffer) != current_buffer) |
| @@ -1673,13 +1674,13 @@ specified buffer position instead of point are used. | |||
| 1673 | would not be a problem here, but it is easier to keep | 1674 | would not be a problem here, but it is easier to keep |
| 1674 | things the same. | 1675 | things the same. |
| 1675 | */ | 1676 | */ |
| 1676 | 1677 | ||
| 1677 | record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); | 1678 | record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); |
| 1678 | 1679 | ||
| 1679 | set_buffer_internal (XBUFFER (XWINDOW (window)->buffer)); | 1680 | set_buffer_internal (XBUFFER (XWINDOW (window)->buffer)); |
| 1680 | } | 1681 | } |
| 1681 | } | 1682 | } |
| 1682 | 1683 | ||
| 1683 | if (! NILP (current_kboard->Voverriding_terminal_local_map)) | 1684 | if (! NILP (current_kboard->Voverriding_terminal_local_map)) |
| 1684 | { | 1685 | { |
| 1685 | value = Flookup_key (current_kboard->Voverriding_terminal_local_map, | 1686 | value = Flookup_key (current_kboard->Voverriding_terminal_local_map, |
| @@ -1702,8 +1703,8 @@ specified buffer position instead of point are used. | |||
| 1702 | : MARKERP (position) ? marker_position (position) | 1703 | : MARKERP (position) ? marker_position (position) |
| 1703 | : PT; | 1704 | : PT; |
| 1704 | 1705 | ||
| 1705 | local_map = get_local_map (pt, current_buffer, Qlocal_map); | 1706 | local_map = get_local_map (pt, current_buffer, Qlocal_map); |
| 1706 | keymap = get_local_map (pt, current_buffer, Qkeymap); | 1707 | keymap = get_local_map (pt, current_buffer, Qkeymap); |
| 1707 | 1708 | ||
| 1708 | if (CONSP (position)) | 1709 | if (CONSP (position)) |
| 1709 | { | 1710 | { |
| @@ -1711,7 +1712,7 @@ specified buffer position instead of point are used. | |||
| 1711 | 1712 | ||
| 1712 | /* For a mouse click, get the local text-property keymap | 1713 | /* For a mouse click, get the local text-property keymap |
| 1713 | of the place clicked on, rather than point. */ | 1714 | of the place clicked on, rather than point. */ |
| 1714 | 1715 | ||
| 1715 | if (POSN_INBUFFER_P (position)) | 1716 | if (POSN_INBUFFER_P (position)) |
| 1716 | { | 1717 | { |
| 1717 | Lisp_Object pos; | 1718 | Lisp_Object pos; |
| @@ -1722,7 +1723,7 @@ specified buffer position instead of point are used. | |||
| 1722 | { | 1723 | { |
| 1723 | local_map = get_local_map (XINT (pos), | 1724 | local_map = get_local_map (XINT (pos), |
| 1724 | current_buffer, Qlocal_map); | 1725 | current_buffer, Qlocal_map); |
| 1725 | 1726 | ||
| 1726 | keymap = get_local_map (XINT (pos), | 1727 | keymap = get_local_map (XINT (pos), |
| 1727 | current_buffer, Qkeymap); | 1728 | current_buffer, Qkeymap); |
| 1728 | } | 1729 | } |
| @@ -1733,12 +1734,12 @@ specified buffer position instead of point are used. | |||
| 1733 | string displayed via the `display' property, | 1734 | string displayed via the `display' property, |
| 1734 | consider `local-map' and `keymap' properties of | 1735 | consider `local-map' and `keymap' properties of |
| 1735 | that string. */ | 1736 | that string. */ |
| 1736 | 1737 | ||
| 1737 | if (string = POSN_STRING (position), | 1738 | if (string = POSN_STRING (position), |
| 1738 | (CONSP (string) && STRINGP (XCAR (string)))) | 1739 | (CONSP (string) && STRINGP (XCAR (string)))) |
| 1739 | { | 1740 | { |
| 1740 | Lisp_Object pos, map; | 1741 | Lisp_Object pos, map; |
| 1741 | 1742 | ||
| 1742 | pos = XCDR (string); | 1743 | pos = XCDR (string); |
| 1743 | string = XCAR (string); | 1744 | string = XCAR (string); |
| 1744 | if (INTEGERP (pos) | 1745 | if (INTEGERP (pos) |
| @@ -1754,7 +1755,7 @@ specified buffer position instead of point are used. | |||
| 1754 | keymap = map; | 1755 | keymap = map; |
| 1755 | } | 1756 | } |
| 1756 | } | 1757 | } |
| 1757 | 1758 | ||
| 1758 | } | 1759 | } |
| 1759 | 1760 | ||
| 1760 | if (! NILP (keymap)) | 1761 | if (! NILP (keymap)) |