Update FSF's address in GPL notices.

[elisp/flim.git] / std11.el

diff --git a/std11.el b/std11.el
index 9227ad0..e4a287a 100644 (file)
--- a/std11.el
+++ b/std11.el
@@ -19,8 +19,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Code:
 
@@ -481,7 +481,7 @@ be the result."
              (cons (cons 'word elt) rest)
            )))))
 
-(defun std11-parse-word-or-comment (lal)
+(defun std11-parse-word-or-comment-or-period (lal)
   (let ((ret (std11-parse-token-or-comment lal)))
     (if ret
        (let ((elt (car ret))
@@ -493,12 +493,15 @@ be the result."
                 )
                ((assq 'comment elt)
                 (cons (cons 'comment-word elt) rest)
+                )
+               ((string-equal (cdr (assq 'specials elt)) ".")
+                (cons (cons 'period elt) rest)
                 ))
          ))))
 
 (defun std11-parse-phrase (lal)
   (let (ret phrase)
-    (while (setq ret (std11-parse-word-or-comment lal))
+    (while (setq ret (std11-parse-word-or-comment-or-period lal))
       (setq phrase (append phrase (cdr (car ret))))
       (setq lal (cdr ret))
       )