Changeset 15535


Ignore:
Timestamp:
Dec 11, 2012, 7:19:08 PM (7 years ago)
Author:
gb
Message:

Re-factor the options-line parsing stuff a little.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-unicode.lisp

    r15533 r15535  
    65076507                    (setq plist (nconc plist (list key val)))))))))))))
    65086508
    6509 (defun external-format-from-file-options (line)
    6510   (let* ((emacs-name (getf (parse-file-options-line line) :coding))
    6511          (line-termination :unix))
    6512     (when emacs-name
     6509(defun process-file-coding-option (emacs-name line-termination)
     6510  (when emacs-name
    65136511      (let* ((len (length emacs-name)))
    65146512        (cond ((and (> len 5) (string-equal "-unix" emacs-name :start2 (- len 5)))
     
    65286526            ;; Might be some cases where the Emacs name differs
    65296527            ;; from ours, but can't think of any.
    6530             )))))
     6528            ))))
     6529 
     6530(defun external-format-from-file-options (line)
     6531  (process-file-coding-option (getf (parse-file-options-line line) :coding)
     6532                              :unix))
Note: See TracChangeset for help on using the changeset viewer.