Preserve window point in xref-find-definitions-other-window

[gnu-emacs] / lisp / progmodes / cperl-mode.el

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 2acfc104cf3fdcdf5daf37b7975377e51f36d552..826b3ee73a88f194fd16e41d541c7ddb95235923 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -282,7 +282,7 @@ This is in addition to cperl-continued-statement-offset."
 
 (defcustom cperl-indent-wrt-brace t
   "*Non-nil means indent statements in if/etc block relative brace, not if/etc.
-Versions 5.2 ... 5.20 behaved as if this were `nil'."
+Versions 5.2 ... 5.20 behaved as if this were nil."
   :type 'boolean
   :group 'cperl-indentation-details)
 
@@ -1042,11 +1042,11 @@ In regular expressions (including character classes):
   cperl-can-font-lock)
 
 (defun cperl-putback-char (c)          ; Emacs 19
-  (set 'unread-command-events (list c))) ; Avoid undefined warning
+  (push c unread-command-events))       ; Avoid undefined warning
 
 (if (featurep 'xemacs)
     (defun cperl-putback-char (c)      ; XEmacs >= 19.12
-      (setq unread-command-events (list (eval '(character-to-event c))))))
+      (push (eval '(character-to-event c)) unread-command-events)))
 
 (or (fboundp 'uncomment-region)
     (defun uncomment-region (beg end)
@@ -7631,7 +7631,7 @@ $8        Match of the 8th set of parentheses in the last match (auto-local).
 $9     Match of the 9th set of parentheses in the last match (auto-local).
 $&     The string matched by the last pattern match (auto-local).
 $'     The string after what was matched by the last match (auto-local).
-$`     The string before what was matched by the last match (auto-local).
+$\\=`  The string before what was matched by the last match (auto-local).
 
 $(     The real gid of this process.
 $)     The effective gid of this process.
@@ -7647,7 +7647,7 @@ $;        Subscript separator for multi-dim array emulation.  Default \"\\034\".
 $<     The real uid of this process.
 $=     The page length of the current output channel.  Default is 60 lines.
 $>     The effective uid of this process.
-$?     The status returned by the last ``, pipe close or `system'.
+$?     The status returned by the last \\=`\\=`, pipe close or `system'.
 $@     The perl error message from the last eval or do @var{EXPR} command.
 $ARGV  The name of the current file used with <> .
 $[     Deprecated: The index of the first element/char in an array/string.
@@ -7888,7 +7888,7 @@ printf [FILEHANDLE] (FORMAT,LIST)
 push(ARRAY,LIST)
 q/STRING/      Synonym for 'STRING'
 qq/STRING/     Synonym for \"STRING\"
-qx/STRING/     Synonym for `STRING`
+qx/STRING/     Synonym for \\=`STRING\\=`
 rand[(EXPR)]
 read(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
 readdir(DIRHANDLE)
@@ -8007,7 +8007,7 @@ pos STRING    Set/Get end-position of the last match over this string, see \\G.
 quotemeta [ EXPR ]     Quote regexp metacharacters.
 qw/WORD1 .../          Synonym of split('', 'WORD1 ...')
 readline FH    Synonym of <FH>.
-readpipe CMD   Synonym of `CMD`.
+readpipe CMD   Synonym of \\=`CMD\\=`.
 ref [ EXPR ]   Type of EXPR when dereferenced.
 sysopen FH, FILENAME, MODE [, PERM]    (MODE is numeric, see Fcntl.)
 tie VAR, PACKAGE, LIST Hide an object behind a simple Perl variable.