bug#19649: 24.4; OPascal Mode Incorrect Backslash String Parsing

[Stefan Kangas <stefan@marxist.se>]

Hi Simon,

Could you please help take a look at the below bug report in opascal.el?

Thanks in advance,
Stefan Kangas

Erik Knowles <eknowles@geosystemsoftware.com> writes:

> OPascal mode incorrectly parses strings where the last string character ends in a
> backslash; e.g.
>
> a:='This is a string\' ;
>
> (Parsing fails to note the end of the string and the following chunk of buffer is all
> assigned string constant face.)
>
> The backslash is treated as an escape character, which it is not in Object Pascal. My
> work around is to add the following to an opascal-mode-hook function:
>
>   (modify-syntax-entry ?\\ ".")
>
> The preferred fix would of course to be to make a similar change to the
> opascal-mode-syntax-table initialization in opascal.el.
>
> ~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-
>
> In GNU Emacs 24.4.1 (i686-pc-cygwin)
>  of 2014-11-14 on desktop-new
> Windowing system distributor `Microsoft Corp.', version 6.1.7601
> Configured using:
>  `configure --srcdir=/home/kbrown/src/cygemacs/emacs-24.4-2.i686/src/emacs-24.4
>  --prefix=/usr --exec-prefix=/usr --bindir=/usr/bin --sbindir=/usr/sbin
>  --libexecdir=/usr/libexec --datadir=/usr/share --localstatedir=/var --sysconfdir=/etc
>  --libdir=/usr/lib --datarootdir=/usr/share --docdir=/usr/share/doc/emacs
>  --htmldir=/usr/share/doc/emacs/html -C --with-w32 'CFLAGS=-ggdb -O2 -pipe
>  -Wimplicit-function-declaration
>  -fdebug-prefix-map=/home/kbrown/src/cygemacs/emacs-24.4-2.i686/build=/usr/src/debug/emacs-24.4-2
>  -fdebug-prefix-map=/home/kbrown/src/cygemacs/emacs-24.4-2.i686/src/emacs-24.4=/usr/src/debug/emacs-24.4-2'
>  CPPFLAGS= LDFLAGS='
>
> Important settings:
>   value of $LANG: en_US.UTF-8
>   locale-coding-system: utf-8-unix
>
> Major mode: Apropos
>
> Minor modes in effect:
>   helm-match-plugin-mode: t
>   helm-occur-match-plugin-mode: t
>   semantic-minor-modes-format: ((:eval (if (or semantic-highlight-edits-mode semantic-show-unmatched-syntax-mode)  S)))
>   tempbuf-mode: t
>   show-paren-mode: t
>   global-highlight-changes-mode: t
>   highlight-changes-visible-mode: t
>   recentf-mode: t
>   multi-web-global-mode: t
>   xterm-mouse-mode: t
>   global-auto-complete-mode: t
>   shell-dirtrack-mode: t
>   auto-image-file-mode: t
>   global-semanticdb-minor-mode: t
>   global-semantic-idle-scheduler-mode: t
>   semantic-mode: t
>   ido-everywhere: t
>   which-function-mode: t
>   global-subword-mode: t
>   subword-mode: t
>   delete-selection-mode: t
>   cua-mode: t
>   desktop-save-mode: t
>   auto-compile-on-load-mode: t
>   auto-compile-on-save-mode: t
>   tooltip-mode: t
>   electric-indent-mode: t
>   mouse-wheel-mode: t
>   file-name-shadow-mode: t
>   global-font-lock-mode: t
>   font-lock-mode: t
>   auto-composition-mode: t
>   auto-encryption-mode: t
>   auto-compression-mode: t
>   buffer-read-only: t
>   line-number-mode: t
>   transient-mark-mode: (only . t)
>
> Load-path shadows:
> /d/cygwin/home/Erik/.emacs.d/indent hides /usr/share/emacs/24.4/lisp/indent
> /d/cygwin/home/Erik/.emacs.d/elpa/python-20120402/python hides /usr/share/emacs/24.4/lisp/progmodes/python
>
> Features:
> (shadow mail-extr emacsbug message rfc822 mml mml-sec mm-decode mm-bodies mm-encode
> mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums
> mail-utils apropos reporter helm-misc helm-command helm-elisp helm-eval helm-mode
> helm-files ffap helm-buffers helm-elscreen helm-tags helm-bookmark helm-adaptive helm-info
> helm-net browse-url xml url url-proxy url-privacy url-expand url-methods url-history
> url-cookie url-domsuf url-util url-parse url-vars mailcap bookmark helm-locate helm-help
> helm-org org org-macro org-footnote org-pcomplete org-list org-faces org-entities noutline
> outline org-version ob-emacs-lisp ob ob-tangle ob-ref ob-lob ob-table ob-exp org-src
> ob-keys ob-comint ob-core ob-eval org-compat org-macs org-loaddefs cal-menu calendar
> cal-loaddefs helm-match-plugin helm-grep helm-regexp helm-plugin helm-external helm-utils
> helm helm-source whitespace add-log find-func pp misearch multi-isearch help-mode debug
> semantic/tag-write less-css-mode css-mode smie derived semantic/html sgml-mode
> semantic/wisent/javascript-jv semantic/wisent/js-wy semantic/java semantic/doc js json
> thingatpt cc-mode cc-fonts cc-guess cc-menus cc-cmds cc-styles cc-align cc-engine cc-vars
> cc-defs coffee-mode semantic/imenu semantic/sb semantic/sort semantic/tag-file
> semantic/db-file data-debug cedet-files semantic/wisent/python semantic/decorate/include
> semantic/db-find semantic/db-ref semantic/decorate/mode semantic/decorate pulse
> semantic/dep semantic/wisent/python-wy semantic/wisent semantic/wisent/wisent nxml-uchnm
> rng-xsd xsd-regexp rng-cmpct rng-nxml rng-valid rng-loc rng-uri rng-parse nxml-parse
> rng-match rng-dt rng-util rng-pttrn nxml-ns nxml-mode nxml-outln nxml-rap nxml-util
> nxml-glyph nxml-enc xmltok server cl-macs ibuf-ext ibuffer warnings flymake flyspell
> ispell rainbow-delimiters thesaurus fill-column-indicator dos windmove paren hl-line+
> hilit-chg auto-complete-config image-dired xterm-title xterm-frobs key-chord xterm-color
> generic-x recentf-buffer recentf tree-widget wid-edit multi-web-mode tempbuf grep-a-lot
> dirtrack init-terminal-fix cl tabbar xt-mouse auto-complete popup tramp tramp-compat
> auth-source gnus-util time-date mm-util mail-prsvr password-cache tramp-loaddefs trampver
> shell format-spec saveplace backup-dir backup-each-save bash-completion thumbs image-file
> log4j-mode autorevert filenotify skeleton grep compile pascal-mode+ opascal pascal
> speedbar sb-image dframe python rx semantic/db-mode semantic/db gv eieio-base
> semantic/idle semantic/format ezimage semantic/tag-ls semantic/find semantic/ctxt
> semantic/util-modes semantic/util semantic semantic/tag semantic/lex semantic/fw eieio
> eieio-core mode-local cedet ido which-func superword subword org-install goto-last-change
> imenu edmacro kmacro delsel cua-base sunrise-commander easy-mmode term ehelp sort hl-line
> find-dired pcomplete comint ansi-color ring esh-var esh-io esh-cmd esh-opt esh-ext
> esh-proc esh-arg eldoc esh-groups eshell esh-module esh-util esh-mode enriched dired-x
> dired-aux dired desktop frameset jka-compr auto-compile byte-opt packed cl-loaddefs cl-lib
> bytecomp byte-compile cconv ac-octave-autoloads epc-autoloads ctable-autoloads
> concurrent-autoloads fill-column-indicator-autoloads flymake-cursor-autoloads advice
> help-fns flymake-python-pyflakes-autoloads grep-a-lot-autoloads helm-google-autoloads
> google-autoloads log4j-mode-autoloads info easymenu multi-web-mode-autoloads
> pager-autoloads python-autoloads python-environment-autoloads thesaurus-autoloads
> tidy-autoloads package epg-config tooltip electric uniquify ediff-hook vc-hooks
> lisp-float-type mwheel w32-common-fns disp-table w32-win w32-vars tool-bar dnd fontset
> image regexp-opt fringe tabulated-list newcomment lisp-mode prog-mode register page
> menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax facemenu
> font-core frame cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao
> korean japanese hebrew greek romanian slovak czech european ethiopic indian cyrillic
> chinese case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer nadvice loaddefs
> button faces cus-face macroexp files text-properties overlay sha1 md5 base64 format env
> code-pages mule custom widget hashtable-print-readable backquote make-network-process
> dbusbind gfilenotify w32 multi-tty emacs)
>
> Memory information:
> ((conses 8 931524 114890)
>  (symbols 24 50772 0)
>  (miscs 20 5332 2184)
>  (strings 16 135878 19291)
>  (string-bytes 1 3818602)
>  (vectors 8 69944)
>  (vector-slots 4 1287297 29642)
>  (floats 8 1526 833)
>  (intervals 28 62996 32)
>  (buffers 512 96))