X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/2f12b713116a4e15b4744fc78d5f0dbb57fcd1ca..9899d01a0ccec166e04caa60657a44e614be50cd:/lisp/emulation/cua-base.el

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index d0ec55781e..337be13e2e 100644
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1236,9 +1236,9 @@ If ARG is the atom `-', scroll upward by nearly full screen."
        (memq 'shift (event-modifiers
 		     (aref (this-single-command-keys) 0)))
        ;; See if raw escape sequence maps to a shifted event, e.g. S-up or C-S-home.
-       (and (boundp 'function-key-map)
-	    function-key-map
-	    (let ((ev (lookup-key function-key-map
+       (and (boundp 'local-function-key-map)
+	    local-function-key-map
+	    (let ((ev (lookup-key local-function-key-map
 				  (this-single-command-raw-keys))))
 	      (and (vector ev)
 		   (symbolp (setq ev (aref ev 0)))