/[emacs]/emacs/lisp/progmodes/sh-script.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/sh-script.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.154 by rms, Sat May 14 11:21:12 2005 UTC revision 1.155 by monnier, Fri May 20 13:28:38 2005 UTC
# Line 1389  with your script for an edit-interpret-d Line 1389  with your script for an edit-interpret-d
1389             (cond ((looking-at "#![ \t]?\\([^ \t\n]*/bin/env[ \t]\\)?\\([^ \t\n]+\\)")             (cond ((looking-at "#![ \t]?\\([^ \t\n]*/bin/env[ \t]\\)?\\([^ \t\n]+\\)")
1390                    (match-string 2))                    (match-string 2))
1391                   ((and buffer-file-name                   ((and buffer-file-name
1392                         (string-match "\\.m?spec$" buffer-file-name))                         (string-match "\\.m?spec\\'" buffer-file-name))
1393                    "rpm")))))                    "rpm")))))
1394      (sh-set-shell (or interpreter sh-shell-file) nil nil))      (sh-set-shell (or interpreter sh-shell-file) nil nil))
1395    (run-hooks 'sh-mode-hook))    (run-hooks 'sh-mode-hook))
# Line 2290  we go to the end of the previous line an Line 2290  we go to the end of the previous line an
2290          (if (looking-at "[\"'`]")          (if (looking-at "[\"'`]")
2291              (sh-safe-forward-sexp)              (sh-safe-forward-sexp)
2292            ;; (> (skip-chars-forward "^ \t\n\"'`") 0)            ;; (> (skip-chars-forward "^ \t\n\"'`") 0)
2293            (> (skip-chars-forward "-_a-zA-Z\$0-9") 0)            (> (skip-chars-forward "-_a-zA-Z$0-9") 0)
2294            ))            ))
2295      (buffer-substring start (point))      (buffer-substring start (point))
2296      ))      ))

Legend:
Removed from v.1.154  
changed lines
  Added in v.1.155

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26