diff options
| author | Glenn Morris <rgm@gnu.org> | 2017-04-08 13:16:08 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2017-04-08 13:16:08 -0700 |
| commit | bca1fde85f44d0cb04aec25b0a93d37bbd757460 (patch) | |
| tree | 1fbc47f3b0b15acbfddb73eacf61ad58940ede79 /lisp/progmodes/cperl-mode.el | |
| parent | b7d61609bd2a5a97b63733a4c16194850e48de2a (diff) | |
| download | emacs-bca1fde85f44d0cb04aec25b0a93d37bbd757460.tar.gz | |
Remove references to OS/2 in code, doc, and comments
* lisp/gnus/nnheader.el (nnheader-read-timeout)
(nnheader-file-name-translation-alist): Remove OS/2 case, and simplify.
* lisp/emulation/viper-util.el (viper-color-defined-p):
* lisp/net/pop3.el (pop3-read-timeout):
* lisp/net/imap.el (imap-read-timeout):
* lisp/url/url-privacy.el (url-setup-privacy-info): Remove OS/2 case.
* lisp/emulation/viper-ex.el (viper-glob-function):
* lisp/vc/ediff-util.el (ediff-submit-report): Doc fix.
* lisp/cus-edit.el (custom-display): Remove "pm" (OS/2).
* doc/emacs/msdos-xtra.texi (MS-DOS):
* doc/misc/gnus.texi (Various Various):
* doc/misc/viper.texi (Rudimentary Changes): Remove mentions of OS/2.
; * lisp/url/url.el, lisp/url/url-vars.el:
; * lisp/progmodes/cperl-mode.el: Remove old comments.
Diffstat (limited to 'lisp/progmodes/cperl-mode.el')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index f4cb478e028..23ea91fe95b 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -1922,10 +1922,7 @@ or as help on variables `cperl-tips', `cperl-problems', (perldb (read-from-minibuffer "Run perldb (like this): " (if (consp gud-perldb-history) (car gud-perldb-history) - (concat "perl " ;;(file-name-nondirectory - ;; I have problems - ;; in OS/2 - ;; otherwise + (concat "perl " (buffer-file-name))) nil nil '(gud-perldb-history . 1)))) @@ -6644,7 +6641,6 @@ Customized by setting variables `cperl-shrink-wrap-info-frame', (if not-loner (/ (* (- frheight 3) cperl-max-help-size) 100) (setq char-height (frame-char-height)) - ;; Non-functioning under OS/2: (if (eq char-height 1) (setq char-height 18)) ;; Title, menubar, + 2 for slack (- (/ (display-pixel-height) char-height) 4))) @@ -7010,7 +7006,7 @@ Does not move point." (setq pos (point)) (goto-char 1) (setq rel file) - ;; On case-preserving filesystems (EMX on OS/2) case might be encoded in properties + ;; On case-preserving filesystems case might be encoded in properties (set-text-properties 0 (length rel) nil rel) (and (equal topdir (substring rel 0 (length topdir))) (setq rel (substring file (length topdir)))) @@ -7103,7 +7099,7 @@ Use as (t (goto-char 1) (setq rel file) - ;; On case-preserving filesystems (EMX on OS/2) case might be encoded in properties + ;; On case-preserving filesystems case might be encoded in properties (set-text-properties 0 (length rel) nil rel) (and (equal topdir (substring rel 0 (length topdir))) (setq rel (substring file (length topdir)))) |