Commit 86e893e3 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

regex.c (analyse_first): Fix setting of fastmap for unibyte pattern string.

parents 433bdc96 368d3208
2010-01-26 Dan Nicolaescu <>
* vc-hooks.el (vc-path): Mark as obsolete.
2010-01-25 Dan Nicolaescu <>
* vc-annotate.el (vc-annotate-revision-at-line): Compare file
names too.
* vc-bzr.el (vc-bzr-print-log): Use the more compact --line option
for the short log.
(vc-bzr-log-view-mode): Adjust regexp for the above change.
2010-01-25 Vivek Dasmohapatra <>
* erc-backend.el (erc-session-connector): New var.
(erc-server-reconnect): Use it to reconnect via old
connector (Bug#4958).
* erc.el (erc-determine-parameters): Save
erc-server-connect-function to erc-session-connector.
2009-11-03 Stefan Monnier <>
* erc.el (erc-display-line-1, erc-process-away):
......@@ -130,6 +130,10 @@ Use `erc-current-nick' to access this.")
"The server name used to connect to for this session.")
(make-variable-buffer-local 'erc-session-server)
(defvar erc-session-connector nil
"The function used to connect to this session (nil for the default).")
(make-variable-buffer-local 'erc-session-connector)
(defvar erc-session-port nil
"The port used to connect to.")
(make-variable-buffer-local 'erc-session-port)
......@@ -538,8 +542,10 @@ Make sure you are in an ERC buffer when running this."
(erc-set-active-buffer (current-buffer))
(setq erc-server-last-sent-time 0)
(setq erc-server-lines-sent 0)
(erc-open erc-session-server erc-session-port erc-server-current-nick
erc-session-user-full-name t erc-session-password))))
(let ((erc-server-connect-function (or erc-session-connector
(erc-open erc-session-server erc-session-port erc-server-current-nick
erc-session-user-full-name t erc-session-password)))))
(defun erc-server-filter-function (process string)
"The process filter for the ERC server."
......@@ -5654,11 +5654,13 @@ user input."
"Determine the connection and authentication parameters.
Sets the buffer local variables:
- `erc-session-connector'
- `erc-session-server'
- `erc-session-port'
- `erc-session-full-name'
- `erc-server-current-nick'"
(setq erc-session-server (erc-compute-server server)
(setq erc-session-connector erc-server-connect-function
erc-session-server (erc-compute-server server)
erc-session-port (or port erc-default-port)
erc-session-user-full-name (erc-compute-full-name name))
(erc-set-current-nick (erc-compute-nick nick)))
......@@ -447,7 +447,8 @@ Return a cons (REV . FILENAME)."
(let ((rev-at-line (vc-annotate-extract-revision-at-line)))
(if (not rev-at-line)
(message "Cannot extract revision number from the current line")
(if (equal (car rev-at-line) vc-annotate-parent-rev)
(if (and (equal (car rev-at-line) vc-annotate-parent-rev)
(string= (cdr rev-at-line) vc-annotate-parent-file))
(message "Already at revision %s" rev-at-line)
(vc-annotate-warp-revision (car rev-at-line) (cdr rev-at-line)))))))
......@@ -89,6 +89,8 @@ An empty list disables VC altogether."
:type '(repeat directory)
:group 'vc)
(make-obsolete 'vc-path "should not be necessary anymore." "23.2")
(defcustom vc-make-backup-files nil
"If non-nil, backups of registered files are made as with other files.
If nil (the default), files covered by version control don't get backups."
2010-01-27 Kenichi Handa <>
* regex.c (analyse_first): Fix setting of fastmap for unibyte
pattern string.
2010-01-25 Jan Djärv <>
* xfns.c (Fx_create_frame): If frame height is too big, try
......@@ -4083,8 +4083,7 @@ analyse_first (p, pend, fastmap, multibyte)
the corresponding multibyte character. */
int c = RE_CHAR_TO_MULTIBYTE (p[1]);
if (! CHAR_BYTE8_P (c))
fastmap[CHAR_LEADING_CODE (c)] = 1;
fastmap[CHAR_LEADING_CODE (c)] = 1;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment